nfnrcATED to the sehious programmer 





^ 



^ 



^ 



STAD 



\ 



TlietDol " you need to unlock 
^ the / power of the Z-80 



A powerful monitor for iha TRS-flO wtth special abltity In Tracing and 
Debugging. Single Step through machine language programs or set up to 
three breakpoints, and look at this display format! 

flF BC De HL iX IV fiF-- BC:' OE' HL' SP PC 

8d44 eeee ewe bttc &433 ffff ei82 0000 49^1 SFce 4iFC 4400 

44W LD R. 93 



* *■ • 

All t>i« power ol 
waH. Look al tl^na. 



A FIHST(0) UVST(FFFF) 


ASCII dump 




A FIRST 


(ormalled ASCII dump 




B 


Blari 0^ branch table 




8 VALA 


display 1" decimal 




B VALA VALfflO) 


hei arittiTiBlio 




C 


Chech system tape 




D FIRSTfO) LA3T(FFFF) 


dump nei 




E FIRSTIO) 


edIT rnflmory 




F FIRST LAST VALUE 


find byte 




G BRKPTS (3 mai.) 


3e] breakpoints, continue 


* *• 


H FIRST LAST VALUE 


find word 




IPORT 


feed port 


IBK. 32K, pndtBK 


K 

L 


Ifsyboard echo 
load syslem tape 


vBFtlofia on on« 


L SECTOR MEMORY C0UNT(1| 


load from disk 


Ul* Irom Iflpff J(i 


M FIRST LAST BLOCK 


move rnemory 


Lawl IE Df ■■ ■ 


N 


display aymbol table 


cornmani] \\\t mm 


NO 


symliDl table to tape 


ottk. 


M VALUE 


deilne value for symbol table 


N FIRST 


define start symbol table 




PORT VALUE 


write to port 




P 


initialize memory blocks 




P ENTRV 


write marnory blocks and etarl 


P FIRST LAST 


define a memory block 




a FIRST LAST 


calculate cheohsum 




R 


display / modil/ fBglBtefs 




S FIRST LAST OPTiONIO) 


disassembler 




T COUNT OPTiON(6) 


trace instructions 




U FIRST COUNT OPTlON(0) 


untormaiiad tape l(0 




V FIRST LAST BLOCK 


yerlty memory 




W SECTOR MEMORY COUNTH) w^lIB to aisli 




X FIRST LAST BLOCK 


exchahge memory 




Z FIRST LAST VALUEiOj 


iero memory 
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TbeSoftw^areEja:hange 

6 SOUTH ST., MILFORD, NH 03055 (603) 673-5144 



BASIC __^ 

All Purpose Print Routine 

by C.E. Laidlaw 69 

Z-80 Disassembler 

by George Blank 10 

Printer Terminal 

by Dr. Owen Gaede 19 

DISK 

Random Accessing Tecliniques 

by Will Hagenbucn 55 

Form Letter 

by Richard Taylor 49 

Garon's Goodies 

BASIC to Electric Pencil Conversion 

by James Garon 40 

BYTINC OFF MORE... 

New NEWDOS Command— LOC(X) 

by Carl William MacKey 7g 

Branching Functions in APL80 

by Phelps Gates 44 

Using Electric Pencil With Radio Shack 
Lower Case Modification 

by Jeff Brown 82 



A Library of 
Information 







LITTLE BOOK OF BASIC STYLE Oy John M 
Nevisort Ideal reference lot BASIC programmar, 
junior high TO researcri Soientisf. Indexed, 
flluslrated, 1ST pages 15.95 pJus St shjppJng. 

Z-SO INSTRUCTION HANDBOOK r>v Scelbi Piih- 

licalions, Convenient pockel-size rnanua< describes 
Z-eO capabifliids in aasz-lo-under^land lerms. 
Designed as a practical relerence To mnemonics, 
machine codings, usage, lor prog^aniniers ol every 
level— beginner lo pro le^sioral— anyone working 
in Z-fiO machine or assembler language 
Appendi:isi3. ^4,95 plus $1.00 shipping. 

THE BASIC HANDBOOK by Di David A Lren A 

dslinite ceferenca/idea book Explains ovei 50 
iavorite ^efsjons o\ Ihe BASIC language m delaila^ 
used in micros, niinia and fnainframes 
Users' Learners Manual. 360 pat^es ST4,95 plus 
11 00 sliipping 

inS-flO INTERFACING by Jonalhon TiTus Whal 
you need (o know lo conned your TPS-aO lo Ibe 

world A^suTiES [<notf»iledgg of some niachine 
language prograniming $6 95 plus $!.00 shipping 

INTRODUCTION TO TRS-SO GRAPHICS by Dor 

Inmaii. Sel and reset graphics only J9 95 pi us St. DO 
shippjng 

Z-BO SOFTWARE GODRM^T GUIOE AND 
COOKBOOK by Scelbi PifbUcallons Owe- 100 

usable subroutines, plus how lo use [hem. $14 95 
plus £1 00 shipping. 

PATHWAYS THROUGH THE ROM Tfie delinilive 
guide lo Level ll BASIC. Includes Super Map b^ 
Fuller Sollware, The TPS-SO Disassembled 
Handbook by Robert Richardson, HexMpm by J 
Phillip, ancJZ-SO DIsfiaserrhter by 3. Blank. $19.95 
plus SI 00 shippmSh 



Z-80 AND aOflO ASSEMBLY LANGUAGE 
PROGRAMMING by Kallie Spr^c^len. The besi 
Inlroduclion to assembly language we sell. Vou 
should haveenpenencein BASIC $7 95 plus 1 1 00 
shipping. 

SCELBI'S SECRET GUIDE TO COMPUTERS. This 
book will turn you in[Q a compulflr ouperl quickly 
and easily You'll learn BASIC, having lun every step 
ol the way The book explains how lo deai wiTb 
computer rnaohlnery, which buElans to press, and 
irams you to wnie many >:lnd^ of programs The 
author's "underground" style of writing is sure fo 
hold your inleresi This booh conlams 150 sainpJe 
programs, anaiyzes Ihem and gives you hinis on 
how lo invent your Own. Cli arts are given companng 
The diilerent computers. 15 9S plus i1. 00 shipping 

TRS-8D DISK AND OTHER MYSTERIES by Harvard 
C. Penninglon. II you aresenous enough abouldisk 
pcograniming to own fiSM-^D orNEWOOS*, then 
you Qughl lo purchase this book. It explains Ihe 
organizalion and features ol TRSDOS 2.0. 2 1,2 3, 
P^eWDOS. and UTOS, tells you how to use 
Superzap, RSM-20, Monitor 3, Debug, Dircheck. 
and LMOllsel, explains Ihe direclory track on the 
disk, lile structure (incfuding Eleclrlc Pencil tiles), 
and even gives delQiled procedures lor recovery of 
lost data While this book is r>ol recommended lor 
the inexperienced user, d is essential lor the senous 
disk progiammar. The booK is expensive. inB:^ by 
11 tormat with fypewrUfen instead ol typeset 
prinhng, and only 130 pages, yel the inlormalion is 
worth the price. $l?2.50 plus $1 .00 shippmg. 

Order 
TOLL FREE 
1-800-258-1790 

lnNHcallG73-5144 
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PLEASE NOTE: 



Our WATS line 
number is: 

1-800-258-1790 



(In NH call 673-5144) 



TOLL FREE 

9 AM to 9 PM* 

(Monday - Friday) 

9 AM to 3 PM 

(Saturdays] 



It is ONLY to be used for 
ordering software. 

Programmers will not be 
available on this line. 



Your Cooperation Will Be 
Most Appreciated 



'Eastern Standard Time 



OutgoIng 
MJAil 



George Blank 



Lance Micklus was busy helping 
to put on the Vermont Educational 
Television auction anheiimeof our 
deadline, and asked me to do a 
guest edtForial. Since i have just 
turned over the feins of SoftSide to 
James Garon, I am delighted to 
keep my hand in. 

The Trenton Computer Fa ire was 
a roaring success this year. One of 
the highlights for Roger Robitaille, 
Joe Breton, and myself was an 
evening with Richard Taylor and 
Clayton Schneider aftet the show. 
Clay is a contributor to this 
magazine, and Richard our time- 
sharing editor. Now that the U.S. 
Snail Service is raising first class 
postage to 20 cents, we can't wait 
until must correspondence can go 
electronically and bypass Uncle 
Sam, so timesharing is an idea 
whose time has come. 

Pathways Through the ROM, the 
first book from SottSide 
Publications, is ready forthe printer 
and should be available in eady 
June. Both of the books that form 
the heart of the book, Supermap 
and the TRS-80 Disassembled 
Handbook, have been getting good 
reviews in other publications. I am 
already using the galley proofs as an 
indispensable reference. For 
example, I used Supermapto locate 
the ROM routines for last issue's 
article on SYSTEM tapes. 




Despite all the rumors about the 
obsolescence of the TRS-80 Model 
I, we hear from a pretty good 
source t hat the system is included in 
the next Radio Shack catalog, to be 
released in August for 1981. We feel 
reasonably certain that the new 
FCC rules concerning television 
interference will require some 
changes, but do not fear the sudden 
obsolescence of all our programs. 

That does not mean that there 
will be no changes required. Clay 
and I were discussing the impact of 
the Radio Shack lower case mod on 
his BASIC File Utility and my 
automated disk directory. Since the 
modified computers store ASCII 
letters as control characters, both 
programs need to be changed for 
modified units. We do have 
information sheets available on the 
change if you care to send a self 
addressed stamped envelope to File 
Utility/Lower Case or to Disk 
Directory /Lower Case. P.O. Bojc 68, 
Milford, N.H. 03055. 

We still can't prove that Radio 
Shack is coming out with a color 
computer, as they like to keep 
things under their hat. We do know 
that they now have a part number 
for a color monitor. The official 
word out of Fort Worth is that the 
monitor is for demonstsrating video 



games in the stores, but the part 
number starts with a 26, which is a 
computer part number, not a video 
game number. 

I'd like to hear from readers 
about what you would like in 
PROC/80. One thing thai we are 
considering is articles for people 
who are looking for Income from 
their computer. For example, we 
might run comparisons of the 
comracts, terms, advertising, and 
typical payments of different 
software houses and magazines. 
This might eventually become a 
separate magazine, not for the 
Radio Shack market, but a "Writer's 
Guide" for programmers. Write and 
tell me what you would like! 

APL80 has been around long 
enough to be noticed in the APL 
world, and the verdict is pretty 
favorable. The disk version at least is 
not simply a toy, especially In the 
latest release which adds JCOPY, 



transposition, choice of dimension, 
formal, and latent expressions. The 
price is now up to $39.95, and our 
upgrade policy is to provide the 
most recent version for the 
difference in price and a 55 
handling and snipping fee. You 
must return your original. I suggest 
waiting a month i n order to get the 
update manual as well. 

Make plans to see us at the 
Philadelphia show and the 
Washington show in September, 
the Chicago Show in October, or 
the Boston Show in November if we 
are near you. We plan to attend all 
four. I don't promise to have lime to 
talk at the show— we have to keep 
busy to pay the cost, but you can 
find a wide selection of our 
software and see some of our 
significant hardware products like 
the Busy Box, COMM-80, and the 
Eaton LRC Printer demonstrated. 




Our resident wizard has done it again! Designed in FORTRAN, run 
as machine language, this program turns your TRS-80 into an 
unbelievably wicked checker player! Four levels of play; at the 
most diflicult, ttie machine may take ten minutes per move, as it 
attempts to assess all possibilities. (Level 4 is an exercise in 



hunilityl) 

Level II, 16K 
Disk 



$19,95 
$24.95 



Now supports 
^> forced jumps! Previous 
^f purchaser ■ If you want 
^y forced jumps, you can trade 
in your old version for a $5 
service tee. 



The Sahware Exchange 

6 SOUTH ST., MILFOHD, NH 03055 (603) 673-5144 



TO ORDER 
CALL TOLL- 
FREE 
800-258-1790 

(in NH call 
673-5144) 




Prices subject to change 
without notice. 

Prices do not Inciude shipping 

COD orders require 
25% casfi deposit. 

■"EFFECTIVE JUNE 1«l ISM)— 



6 South Street, 
Milford, NH 03055 
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IIST 


OUR 


TRS.8D COMPUTERS 


PRICE 


PRICE 


Level K. 4K 


1619.00 


J559 00 


Level 11, 16K, no lieypsb 




669.00 


Level II, 16K, wAeypafl 


849.00 


749 00 


EXPANSION INTERFACES: 






COMM-8D Intertace 




179.95 


Expansion Interface, no RAM 


a99 0o 


369.00 


Expansion Interface, 16K RAM (NEC) 


448.00 


369.00 


Enpersior Inlerface, 32K RAW, (NEC! 


597.00 


459.00 


DISK DRIVES: 






Percom, TFD-100, 40-track 


399.00 


369 .00 


Pereom, Dual TFD-IOO's 


795.00 


775,00 


Peicom, TFD-200, 77-uack 


675.00 


650,00 


Percom, Dual TFD-MO's 


1350.00 


1300.00 


CompuThmk, Dual Drkve, Dual Sided 




1295 00 


DISK DRIVE ACCESSORIES: 






2- Drive cable ioi TRS-SO 


29 95 


29.00 


4-Driue cable (or TRS-SO 


39.95 


39.00 


Percom Da la Separator 




29.96 


Extender Card 


15.95 


15 00 


PRINTERS: 






Cen(ronrcs 730 


795.00 


719.00 


Cen Ironies 737 


995 00 


895,00 


Cenlronics 7S3-2 


3196.00 


2695,00 


Centronics 779-2 


1559 00 


995.00 


IS Ooicfc Pnnlerli 


219.00 


309.00 


BS Una PrinWr (II 


196000 


1613 00 


NEC 55OT SplnWrller 


2995.00 


2595.00 


LRC 7000* 


389.00 


369.00 


I^^H^BI^^LRC 7000* (64 col) 


405.00 


389 OO 


1^^ ^H^BV PRINTER CABLES: 




QPII to Expansion Interface Cable 


19.95 


19 00 


LRC to T Ft S -BO cable 




20 00 


LRC to APPLE cable 




20,00 


LRC to EXIDV cable 




20,00 


LRC to PET, IEEE cable 




59 00 


LRC to RS233C male, cable 




65.00 


LRC 10 RS332C (emale, cable 




65 00 


730 or 737 to TRS-BO cable 




29.00 


779 or 753 to TRS-BO cable 




35.00 


PERIPHERIALS; 






Nova lion CAT Modem 


189.95 


179.00 


UDS 103-LP 




195,00 


RS-232-C Interlace Board 


99 00 


89 00 


TfiS-232 Prrnler Interlace 




39 95 


DATA Djbber 




49.95 


16K Memory Kit. Keyboard 




99.00 


16K (Memory Upgrade Kit. E.I. 




96.00 


Percom Electric Crayon, w/cable 




279 00 


Busy Box, TRS-BO 




109,95 


Busy Box. APPLE 




114 95 


BSR x-10. Starter Kil 




124.95 


ATARI COMPUTERS: 






ATARI BOO Computer System 


1080.00 


875.00 


ATARI 400 Compuier 


630 00 


515.00 


ATARI 4!0 Program Recorder 


89.95 


65 00 


ATARI 810 Disk Drive 


699.95 


565.00 


ATARI 820 Printer 


599 95 


470.00 


Joystick Controllers 


19.95 


18,95 


Paddle ConlroHers 


1S.S5 


1B.SS 




Z-80 DISASSEMBLER 



by George Blank 



I have been astonished at the steady demand for the simple monitor and 
unsophisticaied disassembler that I wrote for the first issue of Prog/80 (Simple 
Simon, March 1979). There is apparently a reed for machine language 
programming and study tools that avoid the hassle of loading system tapes, 
and !ohn PhiHipp's excellent monitor in the last issue (Hex Mem, February 
1980) moved me to write a complete disassembler to replace the simpler one 
included in Simple Simon. 

While Siniple Simon gave only the subset of commands that are common to 
the 8080 and Z-80 chips, and managed to confuse the two Instruction sets at 
the same time, the current monitor disassembles the full Z-BOset of almost 700 
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instructions. In addition, the ability to construct a symbol table and reserve 
data blocks in the disassembled listing has been added for a truly useful listing. 

Since one of the best features of basic programming is the ease with which 
programs may be modified tor special uses, I have left in many remark 
statements. Particular routines that users may wish lo modify include the 
automatic printout routine in Line62and the count-and-stop routine in Line 
69. 

The automatic printout routine works by testing the printer-ready Stat us bit 
at location 14312. If it finds the value 63, indicating thai the printer is on and 
ready for data, it sends data to tfie printer. If you have noprinter, you may wish 
to remove this routine, and if your printer does not use the handshake at 
14312, you may wish to change the print option. 

If you want a continuous printout, you may simply delete Line 69, or you 
may modify the counter (C is the number of lines printed) to fit the page size 
on your printer. For e>[ample, you might use: 

69 IF {PEEK(14312) 63>AND C>15) OR C> 60 THEN INPUr(PRESS 
ENTER)'; X$:c=0 

if you wanted to stop after 15 lines on the screen or 60 on the printer. 

The line numbers begin at 30 to make it easy to combine this program with 
hex mem. Then you could either patch the programs with a GOTO from 
HEXMEM or use the command "RUN 30" to use the disassembler. By 
removing all the REM statements, you may still beable to load another basic 
program above HEXMEM and the disassembler, as long as there are no 
conflicts in the numbering of the programs. 

If you wish to allow for the entry of hexadecimal addresses for the start and 
finish of your disassembly, ther« is a conversion routine from hex to decimal at 
Lines 178-186, The routines to convert decimal to hex are located at Lines 70, 
73-78, and84. If you wish to print displacement addresses in $ or + and -form, 
the routine currently used to calculate hex address jumped to is in Lines 80-82. 

To use the symbol table, answer "Y" when asked if you wish to construct a 
symbol table. Then choose hex or decimal entry and enter first the memory 
location and then your chosen symbol. Table entry will end when you fail to 
enter a value or symbol, or when your address exceeds the ending point you 
have chosen for your symbolic dump. If you wish to print the symbol table 
after your memory dump, add a flag equal to the value of S in Line 176 just 
before the final GOTO (SE=S), change Line 63 to; 

63 IF M>METHEN 192. 
and add a routine to take the addresses in the array MS(0), convert them to 
hexadecimal if you wish, and print the corresponding symbol from the array 
AS(0) to AS(SE). If you really want to be fancy, add a routine to ignore the data 
blocks on the first pass through the table, then print the data blocks after the 
symbol table. 

The symbol table routine reserves the symbols "DATA" and "EOD" for the 
start and finish data blocks. If the program, during execution, comes across 
the symbol data, it sets DA to 1 in Line 165 and the program jumps to the data 
routine at 188 to 191 from Line 72. Then, once it comes across the symbol 
"EOD", it sets DA to 2 in Line 165 and back lo (data flag off) in Line 188. 
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If you wish to eliminatelhe symbol table and data block routine completely, 
delete Lines 71 and 163-190, change 72 to: 

72 GOTO 48. 

and delete the last one-third of Line 46. 

To delete the extended instruction set (instrualons not used in the Level II 
ROM) delete Lines 96-126. 130-138, and 141-162. Then add the following lines: 
97 REM 
104 REM 
106 N=N+2;C0TO1-« 

I make no claims to efficient code. There is a wide range between testing 
every possible number as in Line 126 and forming 64 op codes with a single 
line of basic as in Line 61 . Many of the Z-80 codes repeal at intervals of 8 to 16, 
as provided for in Lines 50 to 57. At other times it is possible to provide a series 
of tests with a fall through when the right op code is reached, as in Line 136. 
One rule that became clear was that more planning leads to less codel 



3« iSK « 2-n DISftSSOCLER * COPYRIGHT (C) 1988 l£OI^ eLrVK « 

31 aEflRieae OEFSTW DEFINTB-LM-Z [)ll1flH(15);0IMfl(2ee) 

32 F«B==eT(H5 re(llW«(B>:(£yT:FORe=eTO7:ffif«Wi<B)NEXT:FOI!E=0^^ 
REfilW<B);«XT:FWB=eT0?ISflMI<B):l€)a:F0l»==flT07:REf»fF(B)NEXT 

:FaEB=eT07PEKlW<B)-NOa-«(2>="H''flCG>='fi- 

B ISn * flH(&-i5) * 

J4 ma 8, 1. 2. 2, 4. 5. 6, 7. 8, S. fl. B, C. D. E, F 

35 KM * M><8-7> • 

36 0f^TftB,C.D,£,aLCHL)-ft 

37 REM • «><9-15) * 

3S DRTft BC,OE,HL,SP-ff.(BC),i;OE>,(H).(SP>,fiF' 
39 l®1 • ftI<8-7) * 

4e ma m. poc. sje. sk. and. xor, or, cp 

41 REH * f¥(^?) * 

42 OflTflie2.W;.CPO,ft.P,M 

43 REM * flfl<»-7> » 

44 OflTft H.C.. RftC, fit, IS, ^fl, SRfi. SRL SRL 

45 REN * INPUT FCDRESSES TO DISflSS0«LE * 

46 l>8:CLS:PPlNT2-8e 0ISfSSE«L£R'I»>UT"ST»TII(6 flOORESS (DECl 
WL>r;ieittflJT"EWiING fiOI«ESS-;HE:M=«:lNPUT'DO VOU HflNT TO CREfl 
TE fl SVMBOL TfBLE"ifl:IFLEFTi((i,l)='V'l»SU6169 

47 ft=":G0T065:REH • COfTENTS OF 4 BVTES Of WNCSV • 

48 E>=PED!(II1):D1=PEEK(M2):D2=PEEK(IG) D3=P£Elt(H4)G0SUe86 04»D/8 
:ti5=D/l6:I«=D-8*W:DF=(0,'16-i6)»2:lFM<8THBI5eaSEIFMa6TI€M61: 

BSElF05<12THEHee ELSE9e 
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45 ffiW * OP COOES WH TO 3FH * 

M «)=flD<M):flP=flP(K)-IFW<>iT*N51 ELSEIFOF=eTHENff=W(Ki:fl=" 
LD "+#+■. •:l»SUe76:G0T0S2 ELSEffflDO HL,"+flP:GOT062 

51 lFDe02MH52 ELSE!fW=»«D04<4THENft="LD ("+flP+">,fi*:G0TO62 E 
LSEIFOF=0flNW>4>3MMfl="LI> "■G0?Ue74:fl=fi*',''+RC(O5):G0Ti)62 ELSft 
■LD f(,<"+flPt")':in>4><:TJ€Nfl="LD *+(C(l>5)+"."-GOSU874Q0rTO62 B.SE 

62 

52 !R»<>3T^€N51 ELSIR)F=eTHENfl='lie "+RP:«)T062 EL5Eft='[€C '*(\ 
P- 9)1062 

55 !FDR=4MNft="INC ■+(»-G0TK2 

54 IFDe^teNfl="KC ■tfiOGOTOe 

55 IF[«=61>€Nfl="LD •+flD+'.":aKUe^G0T062 

56 IFDR=7TI€r^ ELSIFD4=0THEMR=-NCIP"ELSEIFM=1THE1«="EX flF.flF'- 
ELSEIFD4=2THO«=-DJNZ"ELSiFD4=5THENfl=-JR"ELSiFD4=4MHft='JP NZ 
■ElSEIFI)4=5THENfl="JR Z'ELSE!FM=<;THENft=''.JR NC'ELSEft'JP C 

57 IFW<2THEH62 aSES* 

58 lfW=8THENft="RLCft'ElSElF[)4=lTt€Nfi=-PftCfl'aSEIFI>4=2THEMft='H.a' 
a5f I FM=3MNR="RRfi'ELaiFl>4=4TI€Hfl='DWaSEIFW=5MHft=-CPl 'E 
LSEIF[>1=6M'«="SCF 'aSEft="CCF ° 

59G0T062 

ffl PEH * ly COOES 4« - 7F * ID R,B * 

61 fr-LD SS>(M-8>+'>"+f»([«) IF(M18THEWl='HflLT 

62M=»+l-M=(HM-fK=I^T$fFK.N*2)N=*-PRIMTTfe(6>fiXTfie(28)FlSTflB(3e 

>R-IFF€EK(14312)=63LF1?INTftlTFIB(6)FlXTf€(28iflSTf«<30>fl 

63 !F«>t^HENIHPUT"<Fi;E5S EHTER>';)a:MlT046 ELSE47 
M BEH ♦ NEXT tCNORV LOCflTlON * 

65 lF!K32768THEHNl=NELSENl=M-e5536 

66 IFn<?2?67THEIIG=H+iaSEN2MH5536+l 

67 IF«Ci376CTHEMG*£ELSEN3=l1-65536*2 . 
6S IRia2?65Ttfi«W=M+3ElSEM4=M-65536+:< , 

69 C=C+1:IFC=15T(CN!NPUT'<PKSS ENTEP>'..X*C=e 
?» t»=lNT((1/4e96) Hl=IKT((H-40%*tt0)/256>K2=IHT«H-<40%*(»t256 
*H1>V16) KJ=>1-<4ei%*H6+256*Hl+i6*H2>:ftl==m(t«>+(W<Hl)+flH<H2>+flH 
W)4" "■pRIHTfll;" ', 

71 lFS>«iTHEH164 

72 IFDe>eneN188ELSE48 

73 RCT * PRIWT 2 DIGIT HEX CODE IN O • 

74 ft=fl+"(" KSUB^ fl=ftt'>" ISTUW 

75 BEIt * PfilKT 2 DIGIT HEX CODE * 
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76 J*=D2:G093B84(»9)e?8:N=tWROllRN 

77 REH * PRINT 1 DIGIT HEX CODE • 

78 t**l:G09JB84:N=«+l:RETURN 

79 REH • CflLCafiTE DISPLflCBCWT • 
88 fi=flt" ■:H=Dl:IF«>127n€f«=H-256 

81 RQ1 * PROOHW (XUKm = 42 * PRINT HEX ADDRESS * 

82 l1H=4<+flt2;D^'im(ltt/'256):Dl=*l»-256*02:a)SUB76 N=N-l:l»r()62 
S? REH « COWRT BVTE TO FCX * 

84 Hl=INT(m6>:MNftt<Hl>:Hl'4Htl«16rfMHm<m):RETURN 

85 REH * CONVERT COKTENT OF HEKRV TO HEXJVECIHfL « 
86H=0:GOSie84:fl=fM" ■:H=M:aBlB84:fl=ft*'' ":H=D2:(30SUe84:WH' " 
:H=l)3:G0Slie84:flX=ftt" •'■.(t=":f£njM 

87 REH • OP cooes 86 - BF « REGISTER flRITHCTIC • 

88 fWKM-tSH' •+»(«) ;00TO62 

89 REH « OP ODES RS - FF EXCEPT CS DO ED FD * 
9eD4>O4-24:flf^<04):iniR=eTHEM(N'RET "^ff :(MT062ELSEIFDR'^TtOI 
fl="JP •+*♦■,' 0051676 :HlfT062aSEIFDftMT«EHR='Cai •+flF+".':QOSU 
876 (iOT062aSEIFCft=7THENft=1BT ':(t=04«:aH«84:GOTOS2ELSElFOR=6 
flCHFN)I(D4)4' a':**l;fiOSUB84:GOT062 

W IFDF=lTHEW93O.SEIFDR=lTi€NflP<3)='flF":ft=f0P "^flPfDS-lZ) tflPG) 
='SP":G(n062ELSElFDR=5MNFlPG)='flF":f^"PUSH •tflP(05-12) :»(3>=' 
SP-tGOTOeS 

92 IF&4=ffTHENft="JP ":00SUB?6:(i0T062ELSEIFD4=2THENfr"0UT ■:G0SUB7 
8:fl=)H".fl':()0T062aSE1FD4=4TI€NB='EXSP,HL':G0TO62ELSEf^'DI";GOT 
062 

93 IF[*=5TieH94 ELSEIFDR=iTHEM95 aSEIFD4=lTHB©7 aSIFD4=3THB* 
B=-IH a':G0SUe78:GaT062 aSElFD4=5TtfHft="EX DE. HL' :G0T0e2 ELSEfl 
="EI":GOT062 

94 IFD4=lTHEHft="Cai ■:G0SUe76:G0T062aSEIfD4=3TtCNlMELSEIFD4»5 
THENi33EL5Eie6 

95 lFD4=lTHe«="RET':aJT0KaSEIFD4=3THENf^"EXX':Q0T062aSEIFD4» 
5THENfl='JP {HL)":G0T062ELSEft-'JP H,":(iOSUB76:G0TO62 

96 fiei * OP COOES CB XX • 

97 N=Htl;Dfl=M/8-re=01-8«Dfl:IFD(O7THEK98aSEft=flfi(0ft)+" ■+flD(DB): 
G0T062 

98 lFDfl>15THEN99ELSEB="81T ■t*(I)fl-8)tf»<0e) :G0T062 

99 IFDft>23Tt€HlfleELaP='ffi5 ■♦flH<W-16)+flD(D6) :G0T062 
tee ft="SET ■tflH(t)fr-&1)-iflD(DB):G0T062 

lei REH * ADJUST UN FOR 4 BVTE OP CODE * 
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182 01=02 DSsK- RETURN 

1«G REM * CP CCe€S CO XX * 

184 flV="I>!"()OTCtlK 

lee RBI * OP C00E5 FD XX * 

m ftV="IV 

167 ROl * fIV = IX OR IV ♦ SZ = (IX+0I5> OR <IV+OIS> * 

lee H=N4l:fl="-H=l>2-G09.E64fl2="C+flV'+"t"*fH")'fl="-04=l>l/S 

189 REM * m HW.F WTES (f 5C«ft BVTE ttbHSHC ftX=LSHe * 

lis tt=01 - |jOSUe84 ■flU=LEFTt(fi, 1) : fKsRlGHTJffi, i) ■ fl=' " : im=mHf.Hl 

28 

111 REh * XO05 TO -mS * 

112 in)l>57THEH114 eLSElFftX=-9"TtC«H>(2)=W-fl='flD0 •W+"."+flP<V 
flfflMi):fB'i;2)="H":(jOTK2 

111 REN * X021 TO XD36 * 

114 ]F01=33THErtfl='LD "+W*",'G(Bl«102(jO5Ue76-G)TO62EL5E!F[H=34 
THEI«="LD ■•GOSLei82KiSl»?4ft=fW',"+flV(iOT062ELSEIFM=35TtffW=' 
INC ■+flV■a)Ttl62ELSEIFDl=4^T^€tK="LD •+ftV*">'KSUBlffiffilSI«74-G0 
T0^LSEIF01=43THEMB='DEC ■+flV:MiT062 

115 !F01=52THEHfN-IHC "tRZN=Wl-G0TO62a?EIFM=5l:THEW=-[)EC "tft 
2:N=H+l-fiOT062ELSEIFDl=54THE»=-tD "+fiZ+","H=05-60SUe84«IT052 

116 REB * XM6XX TO >K«EXX * 

117 IF0i>lllTt€N119ELSEIFW<780fi<N0T<PK="6"«fftX="E-»THEHWe ELS 
Eft="L[) ■+fiO(04-8)+",''+ftZN=l«ltiOT062 

US mi ♦ xDTexx to xo<ixx * 

119 IFOl>117TH0ll2eELSEfl='LO "+Fl?f,'+flO<01-112)'N=N+l-GOT(i62 

120 lF01X53TV£Ni22 ELaiF01=li9THENft="L0 "+fl2+',fl':N=N+i:60T062 
ELSEIFM=12eiHD«='L0 fl, ■+flZK=N*l:G0TK2 ELSEi40 

121 REM * OIL lN(B^Rfl£l.£ 0S4S * 

122 lFDiX96THEH12^SElFflX='6"B€N124ELSEIFRX="E"™EN124ELSE140 
122 REN • !*86XX TO XOBEXX * 

124 fi=ftUI>4-«>*' R,"+flZN=HtlG0T0e2 

125 REN * «)E1 TO XDF9 * 

126 IF01=225THENR='P0P "+fW;GOTO6aLSElFIH=227TH0#fc"EX (SP>-"*R 
V GOT062ELSEIF01=229TtCNft='PUSH ■tfiV(fflT(i62EL5EIF01=233T«Nfl='JP 

(■tWf)"GOT(K2ELSIR)l=249T*Nfl=TOSP."tPiV(»TO62aSE140 

127 REN * INDEXED BIT AND ROTATE 9?0UP ♦ DD Ce fW FD CS * 

128 D4=D5/e:DR=0>8*D4iFDR<:XTHEN14e 

129 IFM<8THENR=flfi<04)+- "+fi2N=Nt2IFB4=gTHEMl^ ELS62 

13e 04^-8; IFO4<8T>£Nft="en"ELSE04=D4-8: IFD4<8T|«Nfi="PES"ELSE04 
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=W-8:ft="SET' 

131 ft=fl+STM<M>+"."tflZ:M=IH2:G0T(K2 

12 KH * ED GROUP * CULL INOPEPftTIVE G»ES * 

133 H=Wl:lFMCM0mM88«(M>163flNDDl<169>0RfDlH71flN0W<175)0 
R(D0179flHK>l<184 )TtCNl« 

134 IFDl<I24Trtltt42 ELSEIFMa43THEN148 

135 REM * EDflfl TO E&eS » BLOCK TRfWSFEft RHD SE«?CK ♦ 

136 0^ :IFO>159fl='LDI " ■ IFD>168ft="CPl" : lFE)>161fi="lNl ' - lFD>162fl=" 
OUT I ■ : IFD>l67ft="LDI)' IFDX68ft='CPP' : IFD>169ft=M(ft" iFO>17W=-0lJT 
D" : IF0>175fl="LDIP" : IF()>176ft='CPlR' lF0H77fl='IHIR" ; IFD>17W="0T1 
P": IFD>183ft=''L[)W : IF[)>184A='aW : IFD>i85THEKfl='IM)R" 

137 in>=i8?THBJft=-0Ti)R" 

139 R0) * IHOPERflTIVE CODE # fiOJUST FCft SlWif 8VTE * 
146 »=H-l:fl="-Dflm-':60T(K2 

141 R01 * EWe TO ffiTeXXXX * 

142 &==Dl--64M=D/6[>5=*/ieWfe[>-8«>lDF=(D^6-D5)«2:fiC='(C>' 

143 REH * EI>Xe * 

144 IFDR>0[Tf»ll46aSEfl=MH -tflDCM)*'. ■tflCIFO4=6THEH140EI.5E62 

145 REtl * EtWl EPX9 * 

146 IF0eHTH£Hi48ELSEa='0UT (C),"+f«)<M):IFM=6THEM14«LSEe 

147 IB1 • EPX2 EDXfl * 

148 IFW>2THEH15eaSEIfW=0THEMR='SK W.."tFlP(KVGaT062H.SEft="fl 
DC HL. '+flP(I>5> GOT062 

149 REM * E0X3 H)XB * 

150 IR>R>3THEN154aSEft="LD ■■G051jei58:IFDF^™NG0SUe?4:fl=flf,-t 
(f (D5>ELS£fWHfiP(D5H", - :ffiSUe74 

151 REH * HO E063 ED6e * 

152 lFt>5=2THEW4«lSE62 

153 REH ♦ EM4 • 

154 IF0R>41HEH156ELSEIFH=eTHENft='NEG- Q0TO62 ELSE146 

155 REH « EMS EMO • 

156 IFDR>5THE»ll58ELSEIFD5>0T«N14«ELSElFDf=eTHENfi=''RETH- G0T062E 
LSEft="RET]":C0T062 

157 REH • EM6 ED56 E05E * 

156 IFl«)6TI€«161ELSElF&=6THENfP"W8":ELSEIFI>=22THENfe'II11"aS 

EIRt=afTHENn="IM 2'ELSE140 

159G0T062 

16eR01«EOX7* 
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161 !Ft3=7TtCMfl="L[) I.fl'*ELSEIfl)=eTHCTft="LD ai"ELaiFD=39THENft=" 

(SD'EISE IRMTTHENfN'PtEi-aSElW 

162GGT062 

1^ l»=INKEVJ:lFI*="THOfl.C aSEPRIMTIS' RETURN 

164 ftS=":IR1>^(SN)THENR5=flS(5N)-«=9l+l-tFSK>STHEMS=e 

165 IFft5="OflTfl"THENDB=lELSEIFftS="EOO-WMie=2 

166 mim 

167 S=S-«SCSl:IFS<8MNS=e 

168 8)10173 

169 CLStPRlNT-SSflKt TfaE CONSTRUCTION* :PRIHT-W?INT"IF VffJ UflNT 
fi SVMBOL Tfffl.E, Vfflj tUfiT Bfm EfOf flOORESS fWD ThE":pRINT"SV»ffi 

a VOU HflKT. VOU WJ5T EKTB? T|€ fflWSSSES IN NUI€RIC«.":PRINT'Ofi 
MR. SVMMLS WE LiMlTED TO SIX CHfiRftCTEPS AND 198 S'tWOLS. ' 
178 FRI(IT;F1?INT''Tl» SVI«OLS «E PESHfVED FOR SPECIfil USE:':PRINT 
Tfe(6)"USE 'OfiTfl' TO IWlCfflt ThC START OF ft K.OCK Of WTft"-PP!N 
TTFCCSnJSE 'm' TO MJifSTE THE EKDIf ft BlWf OF OPTfl " 

171 Din flSdMVDIM NS(1M)-S=9:SN=0 

172 PPIfntPRINT'PRESS <EHT£R> fffTER LftST SVtftOL TO END INPUT- PR 
INT-DO VOU WISH TO ENTER HEX OR OECINfiL «)DffiSSES <H4))"G0a^6 
1 

m lFIt=-H'THEN177 

174 PRINTSi -IHPUT-NENOIfV lOCftTKH (DECIHfL>M1S(S) 

175 IFI1SfSK8T}€H167ELSE!FHS(S»«EI»«S(S)<t1PTHD<PRIKT:reTURN 

176 INPUT"<SV»B0L>"!ftS<5)lFftS(Sl=""Ti«HPPINTBETUI?t€LSEriP^NS(S) 
5=S+ia)T0i73 

177 IfPUT'HERORV LOCfiTION <tOW)ECIHftL>"; ft 

178 KS=0L=LEH(fti:OHL93Siei83,132,181.180 

179 PRINT :RETUBI 

1« m=LEFTtfft,l):ft=RIGHTJ(fi.5>'«SI«i85PtS=l1H*^96 

161 ftH=LFT$(ft,l)ft=M?IfWT$<fl,2):fflSUB185 I1S=«S4W*356 

182 ftH=UFT$(fl,l)fi=RIWT«(ai)-ffl9B135«S=«S*»W6 

1S3 l»Wl:fflSUei85:l1S=NS+WF1fItfT''KCI««.' *;WS> l1S(S>=MSG0T0t75 

184 REM * CONVERT HEX TO DECIflfL • 

IK F0RX=4TO15:IFfW(X)=fiHTHENHH=X-i;tTl^ 

186 NEXT :W=eKTU!H 

18? REN « DftTfl H.OCK PRINTOUT * 

188 I>=PEEIf<HtVH=&;60aie&4;fK=fliFCe=2MNDe=e 

189 !F 0>31 AND K96 THEN B=a«(ft) ELSE ft=' ' 
lSeG0T0 62 



17 




APL80 

Improved Disk version noui includes Monadic 
and Dyadic Transposition, choice of dimension, 
formal, latent expressions, and )COPY 

APLSO, a large subset o( the powerful, 
mathematically elegant APL language of the IBM 
5110.. .you can create matrices with up to 64 
dimensions and manipulate them with over 60 built-in 
functions and siM different kinds o( user defined 
functions. Syntax of functions is identical with the 
IBM version, 

16K Level II Tape version $14.95. EnKanced 
Diik VersioD $39.95 <32K 1 disk). Book 
APL: An Interactive Approach by Gilman 
and Rose $15.50 pins $2 shipping. Send 
SASE for data. 

TheSoHware Exchange 



Remember the Good Old Days? . . . 
You can recapture Ihem ! 




Level I in Level II 

by APPARAT 

Level I BASIC interpreter loads in top 
4K of any 16K Level II TRS-80. 
Allows onmodKied load, rtin, and 
CSAVE of Level 1 programs — no 
conversion tiassfes! Greal tor teach- 
ing beginners, young and oid, to 
program in BASIC. 



\:"System" tape for Level 11, 16K ~ $15.00 



-/ 



TheSaHware Exchange 

6 SaJthStrec^, Box 68, Miltord.NH 03055 603-673-5144 
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PROGRAM "LPRINr 

USE A STANDARD 
TIME-SHARING TERMINAL TO 
PRINT HARD COPY WITH YOUR 
16K LEVEL II TRS-80 



Let's face it: It's nice to be able to get a hard copy of program listings. It's 
also nice to be able to use the "LPRI NT" command occasionally to output 
data. But printers are expensive. Many TRS-80 users are just not able to 
justify the cost of a line printer, expansion interface and/or an R5-232 port 
for an occasional listing or program output. 

This was the problem we faced at Georgia Southern College. We have 
been using the TRS-BO to introduce teachers to uses of microcomputers in 
education. We have purposely stuck with simple hardware — generally IGK 
Level II Machines—smce most schools do not want to invest a great deal of 
money initially in hardware. So we've tried to do the most we can with this 
basic system without buying a lot of extra equipment. 

We do have standard teletype terminals for the University System of 
Georgia's timesharing system. These terminals, which are very common 
across the country, use acoustic couplers operating at 110 baud to transfer 
data across standard telephone lines. I began to wonder If there were some 
simple way of interfacing a 16K Level II TRS-80 to one of these terminals. It 
occurred to methatthe modems provided a ready interface mechanism — 
if only 1 could get the TRS-80 to produce appropriate tones. 
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ACOUSTIC MODEM DATA FORMAT 

I decided at this point that 1 needed to find out more about (he format 
used by modems for data transmission. A little research revealed (hat a 
modem uses a 2225 HZ pulse to represent a high bit (1) and a 2025 HZ tone 
to represent a low bit |0). The duration of these pulses depends on the data 
transmission rate — at 110 baud these pulses have a duration of 9091 
microseconds. 

When no data is being transmitted, (he data line is kept at (he high 
frequency. A byte of incoming information is preceeded by one low (2025 
HZ) pulse. The data byte then follows, one bit at a time, starting with bit 
and ending with bit 6. Bit? is not required to transmit standard ASCII code, 
so it is used generally asa parity bit. That is, this bit is adjusted, either high or 
low, to make the sum of all eight transmitted bits either odd or even. (This is 
known as either odd or even parity.) 

Finally, to separate bytes, there are two high bits (pulses) generally called 
stop bits. lnsummary,tosendonebyteof information, there are a total of 
11 pulses transmitted -one start bit (low), 7 data bits (either high or low), 1 
parity bit (either high or low), and two stop bits (high). 

You can perhaps see if 110 bits (pulses) are sent per second, ten bytes are 
transmitted per second. It should also be apparent why each transmitted 
pulse is 9091 microseconds in duration: 

1 SEC 

= ,009091 SEC/BIT (or 9091 Microseconds) 
no BITS 

It might be good here to look at a specific example. The ASCII code for 
the letter "X"is88 in decimal, or in binary, 01 011000. Figure 1 illustrates how 
this byte would be received by a standard modem at 110 baud, assuming 
odd parity. Note that since the number of high bits equals three, which is 
already odd, the high-order bit is left unchanged for odd parity, 

PRODUCING TONES ON THE CASSETTE 

Now that we know how data is received by a modem, we are ready to 
make the TRS-80 produce these data tones on the cassette recorder. This is 
not actually as hard as it may first seem. There are a number of programs on 
the market which allow you to program music on the TRS-BO. These 
programs all produce musical tones on the cassette recorder. 

In order to understand how this is done, we need to discuss the cassette 
latch i n the TRS-80. The cassette recorder is controlled by a 4-bit latch. This 
is simply another kind of memory which can hold data until it is signaled by 
the CPU todiscardit. The cassette latch only uses the lower 4 bits of a byte. 
The high nibble (bits 4-7) are simply discarded. The four bits in this latch 
can be set using the assembly language command "OUT 255, X" where X is 
the number to be stored tn the latch. 

Bits and 1 of this latch control thewrite head ofthecassette recorder. If 
bit is set (1) and biti is reset (0), the head is turned on. If these twobits are 
reversed (so bit is reset and bit 1 is set), the head is turned off. Bit 2 of the 
latch turns the cassette motor on (set) and off (reset) through a small relay. 
We'll ignore bit 3 of the latch in this article. 
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Let's see what happens if we have the following command in an assembly 
language program: 
OUT 255,5 

Since 5 (decimal) is 0101 in binary, this command will cause the cassette 
to be turned on since bit 2 is set. It will also cause the write head to be 
turned on since bit is set and bit 1 is reset. The command: 

OUT 255,5 

will cause the number OllOto be stored in the latch. The tape will still be on 
(bit 2 set), but now the record head is off. 

By turning the head on and off at even intervals, we can produce a square 
wave, or tone. The only problem remaining is to work out the proper 
timing, and this requires just a little bit of mathematics and a knowledge of 
the execution times of Z-CO machine language instructions. 

The manual for the TRS-80 Editor/Assembler gives the execution times 
for each Z-80 command — however, there's a slight catch! The times given 
are for a 4 megahertz clock. But the TRS-80 uses a clock that operates at 
1.774 megahertz. In other words, we have to multiply each of the execution 
times given in the manual by a constant in order to get the correct 
execution time. This constant is determined simply as follows: 

4.00 MHZ 

= 2.225 
1.774 MHZ 

Let's take an example. The Editor/Assembler Manual gives an execution 
time of 1 microsecond for the command: 

LD A,B 
The actual execution time for the TRS-80 would be: 
1 MSEC • 2,225 = 2.225 MSECS 
For half this time (225 MSEC) the write head must be on; for the other half 
(again 225 MSEC) the write head must be off. 

We determined earlier that at 110 baud each pulse of tone must last 9091 
microseconds. The final calculation involves finding the number of cycles 
of 225 HZ tone per pulse: 
9091 MSEC/PULSE 

= 20.4 CVCLES PER PULSE 
449 MSEC/CYCLE 

So we need about 20,4 cycles of this tone to produce one high data pulse. 
Similar calculations for 2025 HZ results in a period of 494 microseconds 
(247 MSEC per half period) and 18.4 cycles per data pulse. 

While it is not possible to produce these exact times, we can get close 
enough to fool the modem! Let's see how it's done. 

PRODUCING THE HIGH (2225 HZ) PULSE 

A portion of the source program is produced below. In this copy of ihe 
program the comments have been replaced with the total time required 
for each instsruction. Let's look at this carefully. (All of the times shown 
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here have been adjusted for the correct clock time.) 



1750 


HIGH 


LD 


C,20 


3.89 MSEC 


1760 


CONT 


LD 


B,28 


3.89 MSEC 


1770 




LD 


A,5 


3.89 MSEC 


1780 




OUT 


255,A 


6.12 MSEC 


1790 




XOR 


A 


2.23 MSEC 


1800 




XOR 


A 


2.23 MSEC 


1810 


UP 


DJNZ 


UP 


202.48 MSEC 


1820 




LD 


8,28 


3.89 MSEC 


1830 




LD 


A,6 


3.89 MSEC 


1840 




OUT 


25S,A 


6.12 MSEC 


1850 




XOR 


A 


2.23 MSEC 


1860 




XOR 


A 


2.23 MSEC 


1870 


DOWN 


DJNZ 


DOWN 


202.48 MSEC 


1880 




DEC 


C 


2.23 MSEC 


1890 




IR 


NZ,CONT 


6.68 MSEC 


1990 




RET 




5.56 MSEC 



Statement 1750 loads register C with 20. This is the number of cycles 
which will beoutput per pulse. Note in our previous calculations we found 
we needed 20.4 cycles to make a 9091 microsecond pulse. By using only 20 
cycles, we'll be a little short on time, but this missing time is partially made 
up before and after the pulse. In other words, we have a few microseconds 
of silence between pulse, but these are not noticed by the modem. 

Statement 1760 loads register B with 28. This controls the duration of the 
on (write) half-cycle in conjunction with the D)NZ loop found in statement 
1810. 

Statement 1770 puts the value 5 into the accumulator. This value is sent to 
the cassette latch in statement 1780 — turning on the cassette motor 
(actually in this case, keeping it on) and turning on the write head. 

Statements 1790 and 1800 are simply included to "fine tune" the tone 
produced. The XOR A operation zeros the contents of the accumulator, 
which is unimportant — but, the operation requires 2.225 microseconds. 
The two commands thus add 4.45 microseconds to the length of time that 
the write head is on. 

Statement 1810 is the main delay loop for the "on" half cycle. 

Statement 1620 through 1870 produce the "off half cycle. They are 
nearly identical to statements 1 760—1810. The only exception is that we are 
now loading the cassette latch with 6 (0110 binary). This keeps the motor 
running, but turns off the write head. 

Statement 1880 decrements the value in register C. Remember, this is the 
number of cycles per pulse. If we havea not yet had 20 cycles, program 
control is transferred back to statement 1760 by the "|R NZ.CONT" 
command in 1890. 

Now let's look carefully at the timing. If you add up the times for 
statements 1760 through 1810 you'll get a total of 220.84 microseconds. This 
is just 4 microseconds short of the required half period of 224.5 
microseconds. 
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One more example, this one a little more complicated: 
NXT DfNZ NXT (E.T. = 3.25 MSEC) 

This command will cause the B register to be decremented and if a non- 
zero results, will loop to the label NXT (in this case, back to itself). Each of 
these loops will take 3.25 • 2,225 microseconds. If register B contained the 
value 10 before this command was encountered, the total execution time 
would be 3.25 • 2.225 • 10 = 73.20 microseconds. 

Now that we know how to calculate the execution times of Z-80 
instructions, we have to determine a few more figures. Let's start with the 
necessary high tone— 2225 HZ. One cycle of any tone consists of a peak 
(write head on) and a trough (write head off). For 2225 HZ, the period of 
one cycle is determined as follows: 

1 

= .000449 SEC OR 449 MSEC 
2225 HZ 

Now let's find the total time of the pulse. The first thing to do is add up 
the times for statements 1760 through 1890. 

3.89 + 3.89 + 6.12 + 2.23 + 2.23 + 202.48 + 3.89 + 
3.89 + 6.12 + 2.23 + 2.23 + 202.48 + 2.23 + 6.68 = 
450.59 MICROSECONDS 

Keeping in mind these instructions will be executed twenty times, we now 
multiply by 20: 

450.59 MSEC * 20 = 9011.8 MICROSECONDS 
Finally, add in the times of the first and last instructions: 

9011.8 MSEC + 9.45 MSEC = 9021.25 MSEC 
This is 70 microseconds short of the optimal pulse duration. However, 
there will be other instructions that must be carried out between each 
pulse. These other instructions will bring the average pulse duration just 
about to the required 9091 microseconds. Even if this were not true, we 
have a pulse here which is only .76% short of standard. 

We will not go through il)e timing mathematics of the low tone (2025 HZ) 
pulse here, but will leave that up to the reader. The calculations are 
essentially identical. 

PUTTING IT ALL TOGETHER 

Now that we've discussed the theory of the program's operation, we can 
brieflydiscusstherest of the program. You will notice that we've included 
two listings: (1) a source listing for the Editor/ Assembler and (2) a short 
BASIC program which "Pokes" the machine language program into high 
memory in decimal form. We'll first discuss the source program. 

Let's begin by pointing out that there is a block of memory locations in 
the TRS-80 which are dedicated to the line printer. The line printer control 
block begins at memory location 16421 decimal and runs through 16428. 
Two of these bytes, 16422 and 16423, contain the address of the printer 
driver. When a "LLIST" or "LPRINT" command is executed. Level II BASIC 
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loadsthe byte to be printed in registerCandcallsthe address in these two 

bytes. 

Normally this vector points to a subroutine in ROM BASIC that takes care 
olthe printing, Amongotherthings, it patiently waits until the line printer 
signals it has printed the byte. This is done by setting the Z flag. This is why 
the computer "locks up° if you type "LLIST by mistake when there is no 
printer attached. It's waiting for the flag to be set, signaling the printer's 
ready for the next byte. 

Program "LPRINT" makes use of this driver address veaor. Indeed, if 
things did not work this v/ay, it wou Id be very difficult to make this program 
work. At any rate, what we do is poke the starting address of our machine 
language program into these two memory locations. Then, whenever an 
LPRINT or LLIST command is executed. Level II BASIC directs the Z-80 to 
our routine. Remember, the Z-80 comes to this routine with a byte to be 
printed in register C. 

The origin of the source program is 32170. Users with 32or48K memories 
can adjust this origin as needed. The main "DRIVER" of the program 
begins at line 320 and runs through 760. This part of the program checks to 
see if the byte to be printed is a special carriage control character, keeps 

track of the numberof lines printed, and calls a subroutine which stores the 
byte in a buffer. 

You may wonder why we bother with this buffer. Why not Just send the 
byte immediately to the teletype via the cassetief Originally the program 
was written that way, but we found that there were often pauses between 
bytes which were long enough to completely confuse the modem. 
Garbage resulted. By using a buffer, these delays between bytes are 
eliminated and so is the garbage 

The first subroutine, called "LDBUF" starts at line 850. This subroutine is 
called from the main driver program for each byte. It keeps track of where 
in the buffer each byte is to be stored, puts it there, and when the buffer is 
full, calls the subroutine PBUFF. 

Subroutine PBUFF, starting at line 1010, controls the actual printing of 
the buffer contents. Essentially it loads the bytes one at a time from the 
buffer into register D and then calls subroutine OUTB2. In addition, the 
subroutine inserts extra carriage returns when needed if a line will exceed 
the maximum line length specified by the user. If it's necessary for this to be 
done, it also increments the line counter. 

Subroutine OUTB2 begins at line 2180. This subroutine is called from 
PBUFF with the byte to be printed in register D. Using the RRC (right 
rotation into carry flag) instruction. This subroutine breaks the byte down 
one bit at a time beginning with the least significant bit (LSB). Each RRC 
instruction causes the LSB to be placed in the carry flag, all other bits are 
moved right one position, anda the carry flag is copied in to the most 
significant bit. 

After each rotation subroutine select is called. This subroutine calls 
either subroutine HIGH (which outputs a high pulse) or subroutine LOW 
(which outputs a low pulse), depending on the status of the carry flag. 
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Subroutine OUTB2 also automatically causes a start bit to be output 
preceeding each byte. After 7 bits have been output, it also sets the parity 
of the 8th bit. In this version the paritywill be odd. You can make the parity 
even, if you wish, by switching the words "HIGH" and "LOW" in statements 
2360 and 2380. Finally, the subroutine outputs three stop bits. You may 
recall that two stop bits are standard. An extra is added here to make up for 
possible slight shortages in the timing of the data pulses. 

The subroutines HIGH and LOW, which actually output the data pulses 
to the cassette recorder, have already been discussed insonrie detail above. 

At the end of the program is a short data block. "SREM" defines one byte 
that is used to store the maximum line length desired. This value is also 
poked into memory location 16426 in the line printer control block. You 
may change this number to any value you wish. "BLEN" defines a byte 
which is used by the program to keep track of the number of bytes 
currently in the buffer. 

Following "BLEN" the buffer (BUFF) is defined. Although the buffer is 
actually 255 bytes long, only 220 are defined in the program. This is to make 
room for a short initialization program which follows. Once the 
intialization program is executed, it is overwritten and becomes part of the 
buffer. 

This initialization program does several things; (1} it first stores the 
starting address of the new driver (32170 decimal) in the line printer control 
block in bytes 16422 and 16423, (2) it stores the starting address for the 
subroutine which prints the contents of the buffer in the "USR" vector at 
16526 and 16527, (3) it stores the maximum line length desired in location 
16426, and finally (4) jumps to Level 11 BASIC. 

You may wonder why we store the starting address of the "PBUFF" 
routine in the "USR" command. Remember that "PBUFF" is only called 
when the buffer is full. When an LPRINT or LLIST command is executed, it is 
likely that the bufferwill be filled and printed several times. But, at the end, 
the odds are thai the buffer will be only partially filled. Including a basic 
statement like "1=USR(0)" as the last statement in your program will cause 
the remaining contents of the buffer to be printed. For similar reasons, 
when using the LLIST command, you should enter something like this in 
command mode: 
LIST:l=USR(0) 

THE BASIC LANGUAGE PROGRAM 

If you don't have the Editor/Assember, the BASIC program below will 
poke the machine language program into high level memory. If you use 
this and wish to change the maximum line length to some value other than 
71, change statement 230 and the next tp last data item (71). 



USING THE PROGRAM 

made with tl 
leed to protea hi] 
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whether you are using a "SYSTEM" tape made with the 
Editor/Assembler or using the BASIC program, you need to protea high 



memory at 32169 on power-up. After you have done this, load the program 
and execute. If you are using the "SYSTEM" program, execute by typing"/" 
and pressing ENTER. The iniilalization program will load the necessary 
values in the right memory locations and will return to "READY". Running 
the BASIC program will do the same thing. 

After ;you have done this, you're ready to use LLIST and LPRINT 
commands in the normal way (seethe Level II Manual), The only difference 
is that you must make sure you have a cassette in the recorder and the 
recorder must be in record mode whenever one of these commands is 
executed. Standard modem tones will be recorded on the cassette. 
Printing the contents of the cassette can be handled in anyone of a number 
of ways. 

Thesimplest way to print the tape requires a simple earphone that will fit 
the jack on the cassette recorder. Plug the earphone into the ear jack. Pick 
up the phone which is generally located next to teletype terminals and dial 
thefirst few numbers or the local exchange to get rid of the dial tone. Now 
put the earplug into the receiver end of the modem and place the 
telephone handset in the cradle in the normal fashion on top of the 
earphone. Turn on the teletype and play the tape with the level set at "4", If 
you find the teletype is missing characters, you've got the volume set too 
high. Turn it down a bit. 

Vou can also send the information to be printed over a regular phone to 
some remote terminal. Simply establish a connection with someone by the 
remote terminal, and have them set up the terminal in the normal fashion. 
Then, place your telephone with the mouthpiece over the speaker of the 
cassette recorder. Play the tape with the volume again in the "4" position. 
You may need to adjust the volume up or down, depending on the quality 
of line you have. 

It is also possible to print "LIVE" if you have the teletype handy. Just 
remove the blackjack fromthecassetle, insert the earplug, and set up the 
modem as described for the first method above. Don't put a cassette in the 
recorder, but reach in on the left side and hold in the record-protect lever 
while you dep'ress the record and play button. Now you can LLIST and 
LPRINT to your hearts desire. 

IN CONCLUSION 

Of course i( money is noobject, forget all of this and buy a good quality 
printer. But if you haveonly occasional need for hard copy and can arrange 
access to a teletype terminal, this program could save you a pile of money. 
Keep in mind that most colleges have teletypes. If you strike up a friendship 
with one of the faculty, you can probably use a teletype at little or no cost. 

One final word. This program is designed for 110 baud. Most of the Bell 
teletypes operate at that speed, but many of the newer timesharing 
terminals operate at 300 baud. I haven't had time yet to experiment with 
adapting this program to that rate, but you know enough now to try it 
yourself. You may nave to play with the timing a bit, but I see no reason why 
it wouldn't work. If yousucceedat this, I'd really appreciate a copy of the 
program I 
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BASIC PROGRAM 



19fl REM***pROCfif« LPFIMT**BftSIC VERSIOH i. 2»**I»«CH 16. i?i&i 
m REMX COPVPIGHT <C) 196^. »IEH F GfflDE, PH i) 
12e REM GEOftGlfl SOfTHEfiW COL1.F0E 

136 REH STflTESBGRO- Gfl. 59460 

150 (^M**» PUT Tft FCILOHING STftTENENTS HE«? Ttt H^/iltWlfffi 

lee REM OF vo* mioffiM 

178 R&l 

186 (lEf«Sl:0EFMfl-2 

IW POKE lffi2e,?9:P0KE16527. 126 'ADDRESS OF FWNT HJFF 

^ POKE 16422, 176, PEKE1&423, 125 'DRIVER flWRESS 

216 POKE 16424,66 'CF^IRE.D LINES PER PflGE 

220 POKE 16425,8 '7ER0 LINE HWftER 

230 P(*E 164^,71 'SET DESIRED LI* LENGTH 

248 GOSUfl390:EM) 

250 REM 

260 1^1*** IrE FXLOHiNG SH(MJ) GO NEW THE END ff VCU? 

278 REM PROGRflM 

^ REM 



290 REM*** THIS aJBRftJTIHE PKES TW FfOSffl IN HIGH ICW»V 
380 aS:FORI=:c2170TO13507:RE™:PClKE!..flF15IHTfi; HEXTiKTlSN 
lie REM*** T*. FaLWlNG OfiTfl STATEMENTS CONTfllN THE \mm. 
320 mi REPffiSEKlfiTlOH OF THE MftCHIHE LfiWajRK PROGRFM 
330 DftTfl 197, 253, 229, 229, la, 183, ^. 73, 254, 11, 32, 7, 62, 13, 265 
340 DflTfl 8, 126, 24, 62- 254, 12, 32, 24, 175, 221, 182, 3, 46, 18, 221 
350 DflTR 126, 3, 221, 156. 4, 71, 197, 62, 16, 285, 8. 126, 193, 16, 247 
360 DflTR 24, 39, 87, 205, 0, 126, 122, 254, 10, 40, 9, 254, IS, 32. 21 
270 DflTfl 62, 10, 285, 0. 126, 221, 52, 4, 221, 126, 4, 221, 198, 3, 122 
380 DflTft 32, 4, 221, 54, 4, 6, 225, 253, 225, 193, 291, 253, 33, 251, i2€ 
390 DBTfl 6, 9, 253, 78. 0, 253, 52, 6, 253, 35, 253, 9, 253, 119. 8 
490 DfiTfl 58, 251, 126, 254, 255, 192, 205, 29, 126, 281, 33, 258, 126, 221, 33 
410 DfiTfl 37, 64, 78. 35, 78. 175, 164, 266, 265. 114, 126, 35, 86, ^, 187 
420 DflTfl 126, 122, 35. 254, 13, 32, 5. 221, 78, 5, 24, 40, 254, 16, « 
430 OflTft 36, 13, 32, 23, 126, 254. 13, 48, 28. 22, 13, 285, 187. 126, 22 
4« WTTfl 18,2«6,1B?,126. 221,52,4. 221,126, 4, 221.196,3,22,4 
458 DflTR 221,54,4,0,221,78,5.16,199.121,59,256.126.175,50 
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468 DflTfi 25tl2fi, 2a 255, 281, 39.255, 137, 285, 135. 126,29,32, 258. 193 
470 DflTfl 381, 36. 4,^5, 161, 12fi, 281, 285, 135, 126, 28L 14, 28. 6, 28 
488 WTR 6Z 5, 21L 2^.175.175.16,^4, 6- 28, 62, 6- 211, 255, 175 
498 DRTfl 175, 16, 254, 13, 32. 233, 2eL 14, 18, 6, 3L 62. 5. 2tL 255 
588 OflTfl 175, 175, 16, 254, 6, 31, 62, 6. 211, 255, 175. 175, 16, 254, 
518 DflTfl 32- 233, 281, 197, 285, 161, 126, 283, 18, 285. 125, 126, 283, 18, 285 
528 DflTfl 125, 12&^. 18, 285, 125, 126. 283, 18, 285, 125. 126, 283, 18, 285 
538 DftTR 125,126,^,18,285,125,126,283,18,285.125.126,283.^234 
548 DflTfl 236, 126, 285, 161, 126, 24. 3, 295. IS, 126. 36,135. 126. 285, 135 
558 OflTfl 126, 2«, 135, 126. 193. 281, 71. 8 



ASSEMBLY LANGUAGE 
PROGRAM 



96668 ,P!fflQWI "IPfillO' — VEiSSai 1 2~HfifitH & 1988 


86678 


coPVRiafr (D ms ao f. gsk, prd. 


88688 


GEOfiGIfiSOUTtBWCfllFtf 


utKuv 


STHTES8QRD, GK 38466 


mm 


m% msim hloks lprm m hist ccmvcs to be 


eerie 


DIKECIB TO fl lie-BflUl TaeVPE WITH fl STfWflRD flcajstic 


ai728 


HODER (tnORV LOCflTIDNS 16414 (» 16415 COfTfllN THE 


^?3e 


STffillffc WORESS Cf THE LINE ffillOK DRIVER. T* 


ee?4e 


HMSS OF M (KIGIH OF THIS PHKRW SHI)ll[i BE POe 


68756 


ma THESE IBKRV LOCfillBHS. 


86766 


*u 


fil778 


«** 


88786 


mfff :<D CBNTfllNS BVTE TO ffi PfilHTED 


88798 


EXIT :2FLflfiSET 


mm 


*« 


e^e 


*** 


itm 


m FOLLQUING IS Tt£ DRIVER ROUTINE LPRM IW LLIST 


6^136 


OMMJS LQflD EfiTES TO BE F1(1HTEI), ONE K fl Tilt, IK 


88E^ 


REGISTER C. THIS DRIVER SlOttS HCS BVTES IN fl BUH-ER 


88858 


»i!CH IS 255 BVIES LONG, HttN THE BUFFS JS FOL, TIC 


mm 


STORED P^ES Hit CONVERTED TO flOOEII TOKS. 


88876 
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TOffi 


fsmt 


ORG 


32176 




TDflfiCS 


«mmiH 


PUSH 


BC 


,SfWEeVTETOFSIMIINC 


TDflefDES 


esee 


PUSH 


i¥ 


,Sft¥£ (MOOS Of TtCSE 


iUftiES 


eieid 


RiSH 


K. 


;fi£GiST05FOI!LflTK 


imrs 


aea^e 


Ui 


fbC 


,LOfti Fi WTH ET/TE 


mF37 


m-^ 


OR 


a 


■ .CICCKT0S££1FB¥TE = & 


TDBeZMS 


mvi 


JR 


Z,IEaB 


;If SO, QEII£XIBS1£ 


70S2FEee 


m^ 


CP 


ilD 


,iSByrEli? 


^■64 296? 


m& 


Jfi 


(G,«(1CK 


, IF HOT, GO CiCCK F0(? 12 


7m sm 


mn 


LD 


fi.13 


.IFSa PRINT fi CflfSlflGE 


?De8Cl«8?E 


uma 


cai 


LJ«r 


-ffiiaai"* LINE FEEB 


7DeE163E 


mm 


JP 


fcm 


;GET leXT BVTE 


TDBUfEeC 


eiasdwacK 


Cf 


ia> 


>Ci€[K FOR ^ 


TDBFaais 


inm 


Jfi 


(COUTl 


; IF ICI, PPIHT Ef^E 


Toaif 


mm 


M 


R 


.NfKERZERO 


?DC2K«b8i 


msi 


OR 


(IX+3) 


jlSi6424<L!NEi-'PG>e' 


7[)C5 28i2 


%im 


JR 


2.ouri 


-.If SO. \im£l2 


7K7 D07E83 


61856 LOGPi 


LD 


ham) 


iGET LINES/P«£ 


;^i«96W 


eiSfiS- — ' 


SUB 


<VfM) 


.SUBTRfiCT PRESENT LIICS 


7K&+7 


ei8?8 


U) 


&n 


.LaSSMIIHUilCSlFT 


,-DC£C5 


eieeeLCiofs 


FISH 


Bt 


,5fW£ BC 


TOCf 5E8fi 


e^ds 


LC 


ft. 16 


,iffiRiK£ FEED 


7W11CM97E 


eiiffi 


Cftl 


ueuF 


■ilORE LINEFEED IN BUFFER 


M4C1 


mia 


KF 


BC 


.GET BC mx 


?[*5iff7 


81126 


WfC 


LKf3 


.DOiJHTlLEfflffl 


TOOMalE 


■31136 


JR 


SE/iTri 


■ GOTONEXJS 


7DD5 57 


61148 OLfn 


LS 


D,R 


,fyT Sf\l IH & 


iWlCDeeTE 


91156 


Cfti 


um 


^STOfiEeVTEINfiffK 


TDODTfl 


61166 


LD 


M- 


iFtfTBVTEfflCK IN fi 


7H€FEefl 


eilTB 


CP 


16 


■ NflSSVTEfl 18? 


7Me^^S9 


61186 


JR 


Lifffl.] 


-IF SO. IMC LINE ffiJfea 


TDEFt* 


61136 


Cf 


13 


,>iiS mi n-^ 


7li£4ai5 


Ba208 


JR 


ic,r£Kie 


. iF NGL GOTO f€KTB 


7LJts3£* 


eiae 


LD 


ft, 18 




TDESCDW^ 


6126 


mi 


mf 


.STOK^INeOFFtl;' 


7KE^3#( 


61236 IWll 


lie 


(lK+4) 


; iCREtei » [f Lilts 


7[lEE[)C7E64 


ei£49 


LD 


H.lIWj 


,LOHDftaiIHI(?Lll£S 


n)Fii)Offie- 


81258 


CP 


(IX+3> 


,COtPfKMITNI»ffit/'F^ 


7DF4 7H 


msa 


U' 


R,& 


-L^B^PRiKIEDiNS 



30 



7DF5 2»4 


61278 




JR 


icrcas 


iir LINES OnflXLIICS 


(t)F7 00360488 ei286 NEXTR 


LD 


axt4>,8 


^aUtlFLIftSTOe 


7DF8E1 


famvEm 


PW 


H. 


.KESTtfiE REGISTERS 1 HI 


TDfCFttl 


KM 




POP 


1¥ 




TDfECl 


KM 




POP 


BC 




7DFFC3 


ai22g 

01236. 
81346 


♦* 


RET 








81258, 


iUBRUUTI* LDBUF-LOflDS BUFFER IMIl FULL OUTFUTS THE | 




^78. 


EHTRV 


<fl> 


CQHTfilie eVTE 


TO BE Side 




81388 


mi. 


(fl) 


UMb 






81358 




kS) 


KSET 






81488. 


















?£W FDaFBFt 81418 ti«JF 


U> 


!¥,HR< 


.IVPCMSTOSIFFLEN 


;^B4WW 


81428 




u> 


6.8 


-^SETHiaiBVTElHBC 


7E«Ft4Eee 


81438 




U3 


C.'.IV*8) 


.Ct^lSI^'TESINeUFFER 


7m mm 


81448 




INC 


av+8) 


ilNCREHEIfl BVTE CUIMR 


7E8CFD21 


81458 




INC 


IV 


i POINT IV TO a*H* START 


?E0Efl«5 


81468 




m 


IV.K 


,iVH»[EXTBUFPOSITOH 


?E18Fli7?ee 


81478 




U) 


<I¥+8).fl 


iSTI»£BVl£!H THIS SPOT 


?E13 3tfE?E 


814^ 




tfi 


f<.<eLQl) 


iPUTttVTES STARE IHR 


^ISFffF 


ei4S) 




(? 


255 


.tSSSTCeHi? 


;^i3ee 


81588 




RET 


le 


aFNOT. RETAIN 


?m mm. 


eiae 




cat 


fWF 


ar SO, F1(lNT£9fFER 


r£iC C9 


8l5£6 
81538 
8^48 




RET 




J«N RETlSN 




31558 


3*RC^ilt PSfF-^MS BUFFER CCHTEHIS 




91568 


















?£^ £lf S7E 


8i5;^PetfF 


LD 


n,ae 


,S£THT&Sf*TOFDPJ(i 


TE^-H H;a254e si5ffi 




L[) 


!;■■ 16421 


.■*KE'3UR£lUSfRff£S 


7E24 4E 


sisse 




LD 


Cirl) 


fSPFlCt LEFT IN Ll* 


rtSB 


816^8 


._ 


_ INC 


HL 


.f£XI Mh 


rE2c46 


81618 




L& 


B.(H! 


..PUTEWFFB;L£lfiIHlNe 


rt2?i¥ 


SiDSi 




SK 


ft 


;Mc ti ZEitC 


7m^ 


al638 




CP 


B 


iM^ii. lif&lri ZEiiO? 


?i2S-^ 


81648 




RET 


T 


, IF s& miHim TO K 


?i2^ WZii 


31658 




CFtL 


LffHR 


,fljT LtMR f*i TfPE 


7ES2:- 


81666 




Ift 


H 


..HfijIHTS TOafFEf: 



31 



7E2E56 


81678 pel 


U) 


D,(H.) 


im D MITH CHHCTER 


7E2FC0ee7E 


81638 


Cftl 


am 


pRiifi eyiE IN D 


TEJaTfi 


ete» 


u; 


M 


PUT eyre IN ft 


7EB2 


91766 


iNC 


HL 


POINT TO )EXT CHIR 


TUifm 


01718 


CP 


13 


HfIS LflST CHffi CR? 


TBszm 


81720 


JR 


NZ.Pe4 


IF NOT. INCR Lift LGTH 


it^DMEBS 


eiTM 


ID 


CCIX^) 


RF^CHflfiOKfle 


7C81S28 


81746 


JR 


F«2 


JUf 10 END GF LOCP 


7Ea)FEefl 


01758 PB4 


CP ' 


IB 


Lilt FthD? 


7BF2824 


ei7» 


JR 


i.m 


IF LIHEFEED, GOTO P62 


^41 «) 


81(78 


do: 


c 


C HRS SPACE L^ IN LINE 


?E42 2Ki 


eim 


JR 


vam 


JUf TO KXT IF NOT e 


7E44 7E 


81798 - 


LD 


fKH) 


LOW A NITH eVTE 


7E45 FEK) 


81888 


CP 





isiexiRUii? 


7E4?261C 


81818 


JR 


Z,PB2 


IF so, eoTO Fez 


7E49ieW 


^828 


ID 


D,13 


mm Lie RETUM 


7£4BCliBE;7E 


81639 


CMi 


0UTB2 


EMTPUTU 


7£€iBeH 


81848 


LD 


D,ie 


LINEFEED 


7£5eC0ffl7E 


81858 


CfLL 


CUIB2 


OUTPtfTie 


im m«^ 


81868 


INC 


<IX+4> 


,IVCS>E/B{\ 1 CF LIIES 


7E56D07E84 


8iS76 


LD 


fl-(IK+4) 


.NintK CF Lift IN H 


7E59 MlBEei 


91388 


CP 


(IXt3) 


axfm. HiTH Liftsmii 


?t5t2W4 


81888 


JR 


ICFfS 


,1F MO HflTCft GOTO PBS 


;B£ Bcawee 81986 


10 


(lX+4},e 


.TEROLIftCOUNTOt 


7E62&WEB5 


61318 pes 


LD 


c (\m) 


LOW C UITH CHKS/Llft 


7EK m? 


81928 PK 


DJHZ 


m 


,D0 P81 IF SUFF NOT EWTV 


mi 7^ 


81938 


LD 


R.C 


C HRS SPfa LEFT IN Lift 


^63 3£Ff(?£ 


81948 


LD 


(SR£n),Fl 


SfNE SPFICE REHfilNING 


7£66ff 


81958 


XCft 


8 


5£T fl TO ZERO 


7E6C32FB7E 


8^68 


LD 


(8LEK)>FI 


S£T BUFFER LDTH TO 6 


lidfsm 


81978 


cn/r 


C255).fi 


Smn OFF CftSSETTE 


(E7iC9 


81^ 

81998 iW* 


REI 








82818 iSUeROUTIie lEflOEIHTHIS PUTS H 


LEffiER OF 255 Hlffl TWS 
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tCffie.ONTHETffEPffittEfiiWJEBCHElfFEftiXJff'. THIS IS HE^ED 




m^ JO fLLW 7ft HM£M 1Ci FiMTlON FiaHRLV M) M CflSSETIt 




fl^&ttJOCatLfTOSFtKi. 


?m \Ef? 


62866 LEStR 


Lt 


E,2b5 .LfffoCiWITER 


7E74C5 


^Td 


PUSH 


eC >SfiVEBC 


?E75 C&87^ 


92888102 


CflL 


Hia -iXlTFllThieHKLS 


7E78 1D 


628% 


SC 


E ,aMn 


7£73fflfH 


mm 


JR 


HZ,Lli2 .lOCf a^CKiFHOTDONt 


TETBCl 


e2iie 


f«= 


BC ,F£STaia 


7E7CC9 


62128 


RET 


,KET» 




82138,*** 




— 




02146,***. 








82156 , SiMUHHE SE^tT-aJTPUTS FftJftR SIGNH. BEP£W>1HG ON 




ffil68 J 1* 
82176 ,EKIRV 


(C) B¥^ EEIHG OJTKil 




0il86, 


(£f) 


SET iF eiT IS 1, REST IF BIT IS 8 




^98 ,£X;T 

QTiaft 


C) 


tMJism^ 


«£!» , 






7E7[:^3^ 


82218 SElECI 


JB 


CiiOHieH 


7£7FCI*i7E 


e22"i'e 


Chu. 


lCW 


7t82C5 


622:S 


RET 




7E8]. C0&7*t 


82246 GWIGH 


cai 


HISH 


7E8613 


62256 
e2b8 ,*** 


REl 






62286 ■SDHtftnilt riiaf-WTFyTS fl ^1 niffiOSECaO FOSE Cf B ) 




^236^2225 HZ TONE- 


-IM HIS! SIT 










WJW >"~ 






7ES7 9Ei4 


^18 Hl&K 


LC 


C26 .CVfJr^PERPULSt IKC 


TESSeeiC 


82326 CONT 


LJJ 


8.26 ,TmNGDQiri-lNB 


7£a6]£e5 


82336 


a- 


K.5 ;L0hO fi WTH (WW6i61 


?E8()D3FF 


62146 


m 


(6FFH).n iL06DLflTC»HiTH6181 


TESf ff 


(I??* 


m 


6 ,ElEUi^Cf 2225ma«(6EC 


im^ 


62366 


m 


Ft iSffCFISfieOVE-FIICTllK 


7E91ieFE 


62376* 


DJNZ 


UP ■ ,*iIN BOflV F«f HftF IfiVE 


7ESJ861C 


62338 


ID 


6.28 ittTfiEHWFailtXIHflF 


rSSJEK 


62338 


Lb 


A.6 .LOW fiKETH 66660118 


7ES7D3FF 


62466 


om 


(6FK),R ,LC« LATCH UITHttiB 



33 



TESSff 


a24ie 


m 


R 


,Htt TUNING CtLfW 


imte 


e242« 


m 


A 


i&£Lil¥ 


TESeiEFE 


e2438 00Uh 


DJN2 


OOM 


iHfiiN DOm CVCLE QELflV 


TE3O80 


82446 .. 


SEC 


c 


,ca»nci£CVQ£ 


7E9E2e£9 


a24se 


JR 


NZ,C«IT 


, IF SOI FINISHED, CCKT 


im(3 


02468 

924Si*M 

e2488i»M 


RET 




, IF ixwE, mm 




82496 -SlBRaJTItt LQU-OJIPUTS fl 90SI HlCKOSECttC PULSE Cf fi 




82586 ia25 (2 TOft-Ctt LEW BIT, 




urn m7 


KalB . — 
625^ LOU 


iS) 


C^ 


iiaevcLEs-msE 


fmm 


625"i9C0HTl 


Li) 


B-31 


■ OaffT FOR HPLF CVOf 


7Efi5 3Ee5 


82548 


ID 


US 


,Li»DR urn 86888101 


?Efi?D3FF 


62558 


m 


(8FFH),fi 


,L0f&Li)TCHI<lTH8181 


7£fi9ff 


K566 


m 


H 


iiimic Dam 


?£ffllf 


62578 


m 


fl 


.rmiNG- DEUW 


TBBIBFE 


KSeetFL 


l»JHZ 


UPL 


,miH TiniHG LOOP 


TttDSeiF 


02536 


yi 


S,31 


,FlXBFOR*XTHftf 


imsM 


82688 


u» 


fl,6 


,L«iD fi «nH 86886118 


FEBlBfff 


02618 


afT 


(8fFH),fl 


*LOffi LATCH 


7^(f 


62628 


M 


A 


iTMHG Km 


7EB4flF 


62638 


m 


Fi 


JIHING CaFlV 


/ItfiWFE 


62648 DON. 


'OlK. 


[KMNL 


,*!MTIHllfcLOl)f 


7EB78& 


82656 


DEC 


C 


.COUilCVOES 


TEBsae 


82666 


JR 


ICCOtlTL 


i IF NOT DONE. (Mi 


7£fiflC9 


62678 


RET 




.(HHERNISL F^TLRN 




82686 


*•♦ 










62636 


tt* 










62768 


SUBROUTIIC 0Lm2-ftimJTS em M£ BIT fti fi Tif€ i 




82716 


ENTEV 


. !D) 


CSfiTfilHS BVTE 10 BE PRISED 




62726 

62736 


EXIT. 


C&) 


IMCNRNGED 














7EB8C5 


82748 0UfB2 


niSH 


BC 


,5flV£BC REGISTERS 


TEKCMITE 


62756 


CHi 


LOi 


.OUTPUT sTfKT en 


mfim 


62768 


m 


B 


.GET BIT 8 
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Micm?i 


e2??8 




Ml 


SELECT 


iTIFCTFfiOfEfiTQtt 


7K4rfWfi 


e2m 




H!C 


D 


,G£T BIT 1 


7EC6CD7C7E 


927% 




cai 


SaECT 




TESCSW 


82888 




H£ 


D 


-GET eiT 2 


TECBCOTBTE 


«m 




Cfti 


SELECT 




7EC£fMl 


m^ 




m 


s 


.BET 61T 3 


?EDeCD70?£ 


msa 




C«l 


SEUCT 




TajiSSfi 


82840 




Rffi 


D 


;eBlT4 


7ED5C]);^<t 


mst 




cai 


SaECT 




^^&8C88B 


82868 




RRC 


D 


iGET BIT 5 


TEWCDTDTE 


62878 




Cfli 


SFiFCT 




TOXJCeffi 


82888 




m. 


D 


iGET en 6 


TEDf C0707E 


823S8 




cm 


SELECT 




?EE2CBeFl 


823% 




l$C 


& 


^OmPflRlTV 


7EE4E(tC7E 


82yl« 




JF 


fE,EVEN 


.rm. mm m 


7E£7(M?t 


82928 




CflLL 


LlU 




TEEfiieei 


mm 




a 


STOPef 




7E£CC»S7?£ 


m^im 


Cfl-L 


HI!^ 




7EF CD877E 


K958ST0Pei 


CULL 


Hiai 


■ FIRST ST* BIT 


7EF2[M177E 


m& 




Cfti 


Hl&i 


.SEOJHD SlOf EIT 


7EF5C&877E 


82878 




ua 


HIGH 


-EiaRfl STOP en 


7EFSC1 


82938 




PCF 


BC 




?EF3CS 


829S8 
8^888 
83818 


*** 


K£T 








83828 


mi\ BLOCK BEfiltC ftl THIS PCM | 




msi 


















TEFfll? 


8^48 SEB 


DQ^B 


71 


,SPS£ REfKlHING IN Lift 


TEFBffi 


83858 bliN 


DEFB 


8 


-DiffiflCTERS IE) BtfFe! 


eeoc 


m&}>:fT 


DEFS 


228 


iSfWE MfilH PffiT Of BUFFER 




mn 


THE fmmm is an IHITIftiZflilOK RftSTilt IT SETS - 




(i>m 


VflRIOltS (fiWfV UCftTiQNS TO THE PROF© VflLlE rfTER 




83898 


IT IS MCUTED. IT BECOflES PflfiT Of TfC BlffElf AND IS 




83188 
82118 
83128 


(MR HRITTER 






?mMi7D 


^RST 


liJ 


tL BEGIN 


iLe HL WITH STf«T OF PGR 


FFOe 222646 


8^138 




LD 


<1M22),HL 


■.m DRIVER (DWESS fm 


7FDE ?11D;^ 


83146 




LD 


H-PBUFF 


;STFRTflDM£SSflFPfeJFF 


;T^E1228E4e 


83158 




LD 


(16S6),HL 


,PUT IN -USR' POIKTER 
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7FE4 JE4? 8Ji6« 


LD &?i 


.LENGTH OF DESIRQ) LINES 


mi i2^m mn 


L& (ib426).fi 


m LINE LENGTH tm 


7FE9 (3iM 83188 


jp iftrn 


,JUIf to "RSfiV" — 


TFEcee esiseEPfiK defb e 




TFE^ 63286 


END FIRST 




mm TOTH. EE»fS 






GEO ?DtliB88% 


63126 




BIB Tilhiims 


814^ 61488 8^68 




asf mt&^m 






CM 7E83eZ328 


62456 




com. 7DB82538 
DOn ^% 82438 


92666 
82438 






DOW. 7mm& 


^648 




EPW TFECejiSe 






EVEf* 7EEC 92346 


82916 




flKT TFDS 93128 


83268 




GCHICH ?183 62246 


£216 




HIBi ?E87 82316 


62686 82246 82346 92956 62966 82978 


\m.l 7[i£B 81238 


91188 




LD2 ^^62688 


62168 




Oeil 7E66 61416 


88986 81186 81158 91228 




LEFlte 7E72 62868 


81659 




lOOPI TK;? 81856 






L0(F2 ?H£6l^ 


61128 




uOH ?£filB2529 


82228 82756 62926 




fCZTfi ?Df7 81288 


81136 




tecie 7MB 91296 


96949 H@S6 81288 6^78 




t£aCI! ?[«& 91886 


m&i 




OUIi 71*9 81146 


&immm 




0UTB2 7EB6 92?46 


9im 81338 81858 




m. ?E2E 61679 


91S6 




PK 7Efa5 61926 


81746 81768 91786 81818 




FW TES) 91756 


31728 




FB5 7E62 81910 


61896 




PBLfF 7E16 61576 


91516 83148 




SEiCT 7E7D K2ie 


Ee7?e 82799 628W 82838 62^6 62878 82896 


SREB TEFfi 93846 


91578 81^ 




srofe: teef 62356 


62938 




if ?E91 62378 


82376 




UPL r£i«B25e6 


62588 
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New lov^ 
pricel 




MAIL LIST II ^'3,^3-rG-rr 



IDEAL tor all sorts ot small Each record incluaes: 
mailing applications, sjch as RECORD NUMBER 

small businesses, clubs, church- 
es; for advertising, newsletters, 
annomcements, press releases -- 
endless posslbiliiies. We use it 
for a 15,000-name mailing list, 
yet it is perfect for lists as short 
as too names! You can store 1000 
records per data disk, use as 
many disks as you like , , . 

lUtilities include SORT, MERGE, MOVE, BREAK. EXAMINE 
and UPDATE. Prints labels 1, 2, or 3 across, SeQuenlial file, 
structure makes the most efficient use of disk space: all 
alphabetic items can be as long as necessary. 



RECORD CODE 
COiVtPANY NAME 
NAME 
ADDRESS 
CITY/STATE/ZIP 
PHONE NO. 
GREETING 
PRODUCT CODES 
DATE 



EVEN ALLOWS DATA EMTHY OM A SEPARATE 
4K. LEVEL II CASSETTE SYSTEM. 



2 Disk DrivB, 32K minimum $49.95 

TheSoihtare Exchange 

6 SOUTH ST., MILFORD. NH 03055 (603) 673-5144 



Accounts Receivable 11 



HEBBLER 

SOFTWARE 

SERVICES 



STfilEHEIIT 

to SOflSlK FiaiCfflKH- 
f 5aini5I(tEl 

taism. tn m. 

m. KaTIFIKN 



tiHb lewffi 



amti (sam msm 






tfMNWIPS 
CIKlTEi 

mm 
munuE 



tl9S 



1124 W 



iie»f( 

C77.S 



mun Vr wHi wiCH is mmi 'jmsol rmij >ot » 



The paci<:age 
allows youto: 



whicli 



• Maintain 
receivables liles 
on 200 ac- 
counts 

• Add new ac- 
counts any lime 

• Charge intor- 
malion 

• Perform 

selective infor- 
malion search 

• Assign lerms 

• Print lisllng 
of overdue ac- 
counts 



Requires TRS-80 withlbK memory, 

two disk d rives , and line printer *03.WO 

IheSahwateEjtoAange 

6SauthSti^et,Box68,MilloKl,NH03(S5 6(B-673-5144 



• Print 
slatements 
aulomalically 
tor unpaid ac- 
counts 

• Print s 
cusloni 
message on 
slatements 

• Print mail 
labels 

• Prim an ac- 
counts 

receivable sum- 
mary for all ac- 
counts or un- 
paid accounts 
only 

• Post charges 
and credits at 
tfie keyboard 
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USMMtl 



Now there's a true historical wargame lor your home computer. Computer 
Bismarck accurately simulates (he epic battle between the awesome German 
battleship and the British Home Fleet, Best of all, the computer program 
eliminates the drudgery of paper and pencil wargames — remembering all the 
rules and details while keeping track of the battle on a North Atlantic map on 
your video display. 

Play the Computer 

II maneuvers the Blsmarci* and Prim Eugsn so well that you'll have to 
command the British ships brilliantly to avoid losing your vital merchant 
convoys. 

Play a Human 

The two of you plot your strategies in grease pencil on an off-screen 
mapboard while the balbe is fought on the video screen (monochrome or 
multi-coiof depending on your display capabilities). You deploy battleships, 
cruisers, carriers— each with unique and realistic operating parameters. You 
must deal with aH the variables which challenge an actual battle commander: 
firepower and damage; shadowing ability (better m radar- equipped vessels); 
and vtsibility — which depends on weather, which varies with geography and 
time. 

Level II, 1 6K TRS-80 cassette $49.95 



3S 



Tlw Sofhtore Cvc/ianoe 

8 SOUTH ST., MILFOnO, NH 03055. 673-5144 




A Wargamer's delight! Throw away your pencils, 
charts* and dice. Let the computer do the dirty work 
while you concentrate on strategy, Kriegspiel II is a 
much improved, two-player version of the original — 
with machine language routines for extra speed. 

Select one of 9,999 scenarios including towns, tanks 
and terrain. Choose the number of mountains (up to 
200}, then sit back and watch as the computer 

generates your 31 x 32 game board, sets up the pieces, 
the towns, the mountains and a river. 

Even the weather will become an important factor 
as play proceeds. To win, you must enter the Capitol 
City of your opponent (or reduce his fighting strength 
below half of your own). 

KRIEGSPIEL II — Level II 16K $14.95 

(cassette version only) 
•Comba! Resolution Tables, BasicTurn Allowances, Terrain Effects 
Charts, etc. 

TbeSaitviare Exchange 

6 SOUTH ST., M(LFORD, N.H. 03055 (603) 673-5144 
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GARDN'S 
QOODIES 

by lames Garon 

BASIC TO ELECTRIC 

PENCIL 

CONVERSION 

PROGRAM 



How would you like to be able to 
use the powerful editing features o( 
the ELECTRIC PENCIL on your 
BASIC programs? You couid, for 
example, change all PRlNTs to 
LPRINTs with a few keystrokes — 
you could quickly locate a phrase in 
a long program — you would have 
an auto repeat on all keys — the list 
is endless.... 

Readers of Mr. Harvard C. 
Pennington's runaway best seller, 
"TRS-aO Disk and Other Mysteries", 
know that this is indeed possible. 
All that is required is to save the 
program as an ASCII file with the 
VPCL" extension and (Super) zap 
the final byte from OD to 00. 

Sound like Heaven? It isl But 
there is a small catch. ELECTRIC 
PENCIL requires a space every 30 
characters or so; otherwise it gets 
indigestion. Many of us "byte- 
misers" wouldn't put a space in a 
long lineif our lives depended or it. 

BPENCIL will put in the necessary 
spaces and place the 00 byte at the 
end for you. It will also create a 
PENCIL- readable file (NAME/PCL 
where "NAME" is the name of the 
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original ASCII-saved BASIC 
program). 

BPENCIL will search each line of 
the program in groups of thirty 
characters. If a space is found, 
BPENCIL moves its attention (o the 
thirty characters following the 
space. If nospaceis found, BPENCIL 
looks forany of 7 special characters: 
:=,.,(or). Upon encountering one of 
these, BPENCIL inserts a space 
immediately following. In almost all 
cases, this will leave the syntax and 
the logic of the line intact (but 
checkl). 

In the rare event that none of the 
above special characters are found 
in a group of thirty characters, 
BPENCIL will plop in a space 
anyhow. Since this could cause 
problems later, all such lines are 
listed at the end of the conversion 
process. 

Youshouldalsobeaware that any 
down-arrows {line feeds) in the 
original program will be converted 
to the letter Z. 

Enjoy!!!! 



ie CLEW iB:DEFlHt C-2:0EFSTR fi,F:DlH Z(99>:»=38:2=1 

28 aS:PRIKT'BflSIC TO PENCIL HWVERSION — BV J«CS GffiON 

26 PRJNTiIHPUT'HHRT IS THE FILEHMC Of THE BflSIC PROGRW;F 

46 OP0(MM.F;X=1MSTR(F,V">:1F X=8 THEN X=5 

58 Fi=LffTJ(F,X-i>*'/Pa" 

68LlNEIHPUTtl.ft:V=RSC<fl> 

76 IF V>57 TOEM PRINTWINT F" IS HOT SflVED WDER im fiSCII OPTl 

m'-m 

86 IF V<46 THEN PRIHT:PRINT F' IS NOT ft BflSIC PROGRfW. ':EM) 
9ePRIHT6152-STRIHG«<M,l«);PRIHT«576.STRlHG$(M,188) 
95CPEH"0",2,F1 
m L=lBI<fl)-l:C=l 

lie PRINTKS6,STR!Hlj«(4,255)i :PRlHT6256,fl:GOSUe 668 
12e[telNSTR(HIM(aC,N>," ') 
138 IF D>e THEN C=C+t):IF CX-M THEN 566 ELSE 128 
268 D=IHSTR(MIO«(fi,C.N),":"):IF IteO Tff « 258 
218 C=C4C>:G05UB ?86:G0T0 128 
258 0=lHSTR<Hl»(fl,C.H),'='):lF 0=8 aSE 216 
266 I>:^IHSTR(HIM<R.C,N),">');IF &=& ELSE 218 
276 D=II6TRfflIM<ft.C,N),'<">:IF W ELSE 216 
288 D=INSTR(NIMtft. C N)- "- ') IF 0=8 ELSE aS 
388 0=IM5TR(HIM<ft,C,N),"C):IF i)=6 ELSE 210 
486 l>=IMSTR<NIMCaC.N).")"):IF 0=6 aSE 216 
416 IF OL-H THEN 588 

456 Z(Z>=Vrt.aEFTt<R,IH5TR<A" ")»;1F Z<Z)>Z(Z-1) Tl€N Z=Zn 
460 D=H:GOTO 216 
588 PRl(ni2.HilF EOF(i) THEN PR1NTI2,CHR»(6):CL0SE 

aSE LINEINPUTil-R:QOTO 188 
516 PR1NT»648. 'T* PENCIL FILE IS HOH SfWED UNDER THE fJfllC "Fl 
526 IF Z=l THEN END ELSE PRINT Tfl8(26>'***CBUTI(lN*** 
THE FOLLCHING LINE(S) NfW COHTfllN SPftCES IN ILLEGfiL PLflCES: 
538 FOR 1=1T0Z-1:PRIHT 2<l)i :HEXT;E(» 
6W L=L+1:PR1HT6512, "LENGTH ="Li IF L<255 THEN ftETUIW 

aSE PftINTe64e. "SORRV - THE LINE IS TOO LONG* 

PLEASE 8REH( IT MO THO LINES RND TRV f»)IK 'END 
708 IF CX THEN 588 ELSE C=C-l:ft=LEFT$(fl,C>+" '+RIGHU(ft, L-C> : 

F«INT8256,ft:G0Sl]e fieerC«C*9:RnURN 
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NOTE: ST-SD Is a lisdemnk 
ol Lsnce MIcRlus, Inc. 



by Lance Micklus 



The ST-80 family of 
smart terminal packages 

Now you can have the right terminal package for your 
communication needs! From ST-80 UC — the simple, pre-sel, 
Inexpensive terminal program designed tor users of THE SOURCE, 
MICRONET, and FORUM 80 — to the power and sophistication of ST- 
80 III, The Software Exchange has the package for you. 

All four programs (ndude the abiilty to usean unmodified TRS-80 
keyboard to produce RUB, ESC, and other control characters for 
time sharing, software control ot the RS-232-C board, repeat key, 
bell, software support for (he three most common upper/tower case 
hardware conversions, and line printer output. 

ST-80 UC 4K Level II cassette, $24.95 

This universal communicatof program is an easy-lo-use limesharing 
program for the beginner. Special features include presel parity, word 
lengtSi.and Daud rate (regardless of switch settings on the RS-232-C board) 
for THE SOURCE. MICRONET. and FORUM BO. automatic testing of the 
RS-232-C board, and even spoolmg of prepared messages on tape directly 
trjto FORUM 80 using a basic program supplied as a tine listing. 

ST-80 4K Level If cassette $49.95 

The original smart terminal program for the TRS-80, ST-BO lets you 
reprogram your RS-232-C board from the l<eyboard, and run at different 
baud rates. Does not have auto testing ol RS-232-C or tape spooling, 

ST-80 D 32K disk program, $79.95 

special tealures include connection time clocl<, option of user-created 
translation tables for keyboard, gatliering and pre-for matting data to be sent 
directly from (iish to host computer, spooling of received files to disk or printer, 
editing of received files, and auto logon. If you use it with VTQS 3,1, you also 
get device driven I/O, job logging, and cfiaining. 

ST-80 ((( 32K disk program, $150,00 
ST-80 D witn extra utility programs 

The SotiHare Exchange 

6 iojrfi Street Sox 68, Mf7tort/,NH 03055 6(B-673-5144 
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Put IRV 
on your 

programming 

Staff! 

Cornea with manual 



Input shorthand — one keystroke 
can enter a whole line! The feature 
you liked in Level III BASIC and T-Short 
now with att keys user programmable! 
You can even turn your cassette player 
on or off with a single keystroke. 



Relocate a line by simply editing the line 
number — renumber lines individually! 

Video Editor allows cursor oriented 
editing of your programs. Just move the 
flashing cursor to the line to be edited and 
type the corrections, insert, or 
delete! 



IRV is faster than Level II BASIC! 
More powerful than a speed 
typist! Able to leap ten 
subroutines at a single bound! 





Machine language tape $24.95 



On Disk $29.95 



The Soitware Exchange 

6 SOUTH ST.. MILFORD. NH 03055 673-6144 
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BRANCHING FUNCTIONS 
IN APL80 

by Phelps Gates 

One of the aspecis of APL which can be confusing at first is the way it 
handles branching: the light arrow ( -* ), equivalent to GOTO in BAStC. A 
non-conditionai branch is no problem — it works just like BASIC. For 
example: 

)DEF INFINITELOOP 

1: 'PRESS BREAK TO STOP' 

2: -»1 
Or you cari use labels: 
)DEF SQUAREROOT; X 

1: GETMORE: 'ENTER NUMBER' 

2- X *^q 

3: 'THE SQUARE ROOT OF';X;'lS';X',5 

4: "* GETMORE 

Note the use of X as a local variable in this function: this allows us to call the 
(unction without affecting any value which we may have stored in a variable 
called X. The shifted q (for "quad") prints a prompt and waits for input (APL 
o). 

Conditional branching is a little trickier, since APL doesn't have operators 
which correspond directly to IF or THEN in BASIC (or FOR.. .NEXT). Of course, 
you don't have to use branching as much in APL as in BASIC. Since APL can 
operate direaly on arrays, a single APL line can often do the work of a whole 
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program in BASIC. For example: 

(18)".'18 
does exactly !he same thing as the following BASIC program: 
10 FOR X = 1 TO 8 
20 FOR Y = 1 TO 8 _ 

30 PRINT X T V; 
40 NEXT Y 
50 PRINT 
60 NEXTX 
But sometimes you do have to branch conditionally. Consider the following 
function, which generates ("ascal's triangle of binomial coefficients: 
)DEF TRIANGLE 
1: K ^- -1 

2: ANOTHER: K «^ K-H 
3: 1,(iK)!K 
4: -♦ ANOTHER 

This will print Pascal's triangle, all right, but it won't stop... it just keeps printing 
lines until the numbers get too big and you get a DOMAIN ERROR. Is there 
any way to print only the first ten rowsi We need to test K and loop back only if 

K is less than 10, and to do this, we have to know the rules for branching in APL. 
There are three cases: 

1. The line number (or label] exists in the current function. Control simply 
passes to that line: this is the simplest case, and all the examples so far have 
been like this. 

2. The line number doesn't exist in the function [ -s-Oor— * 999or— > -1 
or just — » ). The function terminates: this is equivalent to RETURN in BASIC. 

3. The expression to the right of the arrow is an empty vector (iO). No branch 
occurs; control just passes to the next line. 

In the TRIANGLE function, for example, we could change line 4 to: 

4: —» ANOTHER x K < 10 

Now if K is less than 10, the logical expression K < 10 will have the value 1 
(true), and the expression in line 4 will have the value ANOTHER x 1, which 
equals ANOTHER. On the other hand, if K is not less than 10, the expression K 
< 10 has the valueO (false), and the function branches to ANOTHER xO, which 
equals 0, and so the function terminates, by rule 2. 

We could also write line 4 as: 

4: -* ANOTHER x i K < 10 

If K is less than 10, this branches to ANOTHER x i 1,and since i 1 equals 1, this is 
equivalent to —* ANOTHER. If K is not less than 10, we get 

ANOTHER X i 
and since multiplying an empty veaor by anything still gives an empty vector, 
this is equivalent to — > i 0. No branch occurs(rule3),but since there aren't 
any more lines in the function, execution terminates anyway. 

This works fine mathematically, but it doesn't make your programs any 
easier to read, and it's a nuisance to have to figure all this out every time you 
write a function. One solution would be to define a function to figure It out 
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for us. For example: 

)DEF BRANCH *- LABEL If CONDITION 
1: BRANCH *- LABEL x i CONDITION 
Now we can write line 4 of the TRIANGLE function as 
4: — *■ ANOTHER IF K< 10 

which makes a little more sense. The funaion IF computes the propei 
destination for the branch, depending on the value of K. Note that we don't 
have to call It IF: you could call the function PROVIDED.THAT or SI Of 
whatever. It's a dyadic function, requiring both a left operand (the label) and a 
right operand (the condition), and it returns a value (the appropriate 
destination). 

You can also do it backward, and define a function called UNLESS: 

)DEF BRANCH <— LABEL UNLESS CONDITION 
1: BRANCH ^ LABEL x I n CONDITION 
and rewrite the TRIANGLE function as: 
4: — * ANOTHER UNLESS K > 9 

Instead of using multiplication, you can define the IF funaion using the 
compression operator: 

1: BRANCH ^ CONDITION/LABEL 

This is actually the simplest (and fastest) way of doing it: 0/LABEL is the empty 
vector and 1/LABEL is identical with LABEL. Or you can use the Take operator 
( t )■■ 

1: BRANCH <- CONDITION t ,LABEL 
If the condition is false, this selects zero elements from LABEL (and therefore 
gets an empty vector); if the condition is true, it selects one element (and 
therefore gets just LABEL). Note that we have to use the ravel function (,) to 
convert LABEL from a scalar to a one-element vector, since Take won't work 
with scalars in APL60. 

Here's another example of an APLSO function which makes use of the IF 
function for conditional branching: it prints a list of all prime numbers less 
than TOO, It's actually possible to do this without branching, using a single 
outrageous line (can you figure out how?), but the solution using branching 
makes it a little clearer what's going on. It uses a technique known to the 
ancient Greeks called the "sieve of Eratosthenes", in which you start with a list 
of all integers in the range, and then throw out the ones which are evenly 
divisible by primes less than or equal to their square root. Eventually only 
primes are left. Note the use of the APL80 j function (Residue, also called 
Remainder or Modulo) as a test of divisibility: 

)DEF PRIMES; DIVISOR; LIST; INDEX 

1: DIVISOR (=—2357 

2; LIST f- 1 ■*- i 100 

3: INDEX <— 1 

4: NEXTTEST: LIST «=- ((DIVISOR(INDEX)jLIST) > 0)/LIST 

5; INDEX <— INDEX+1 

6: -» NEXTTEST IF INDEX < 5 

7: DIVISOR;LlST 
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Floppy Disk 
Diagnostic 

by Dave Stambaugh 

9 35 or 40 track in same program 

• Tests controller functions and status bits 

• Tests drive speed and allows adjustment 

• Tests switches and mechanical 
components 

• Verifies data transfer 

• Tests drive seek function 

• Sector and byte write and read tests 
using all possible patterns 

• 16 to 48K, 1 to 4 disk drives 
•Tests cross cylinder Interference 
•Tests drive-to- drive compatibility 

The best and mostcomplete diagnostic you can buy 
to verify disk drive reliability and find problems. 
Displays 19 error messages and cross references 
them to 14 possible causes. Continuous test option 
for exhaustive testing l^eeps statistical record of all 
errors found. 

Supplied on diskette with manual for only 
$24.95. 



TheSafhy^eEMDhange 

6SoulhStmet,Box68,Millord,NH03055 603-673-5144 
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The Laxy Man's 

Shortcut to 

achitie 
.anguage! 




A BASIC Compiler in BASIC! Run your source program in 
BASIC, compile it into FAST Z-80 Code and execute the compiled 
version — all without reloading. 25 integer variables, GOTO, 
GOSUB, END, REM, RND, LET, +, *,/, IF, THEN, ELSE, <,-,>, 
INKEY$, CLS, PRINT@, CHR$, PEEK, POKE, Compiled programs 
may be sawed via TAPEDISK. 

Supplied with game program, "3D TIC TAC TOE", which uses all 
of the TINY COMP Statement set and is ready to compile. 

Manual includes several sample programs as ivell as thorough 
documentation of the Compiler for those who like to know "how 
things work" and for those who might even wish to EXPAND on 
TINY COMP-s capabilities. j^^^ ^^^^^^^. $19.95 

Disk version: $24.95 

TheSaN^^w^ Exchange 
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FORM LETTER 

by Richard Taylor 

This program will allow you to use letters generated with th« Electric Pencil 
in conjunction with mailing lists created the same way for form letters: 

InstrucHons: 

There must be at least one blank line between each name and address entry 
in the Pencil file. 
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MIIST/PCL is the default file name for the mailing list. 

There must be a C/R after each line of the letter in the Pencil file. Program 
will check this and inform you of error. 

LETTER/PCL is the default name for the letter file. 

Please be sure to enter your name and address using upper and lower case 
to be consistent with your letter. Lowercase is entered by holding the shift key 
down while hitting the character. 

Unless you are using a lowercase driver, lowercase will not be displayed. 



ifl «*» priRPi tETTER PRItfTER *** 
eV RICHRRI) TflVLOP 
THIS PRMiRfiR USES 
FiLES CRFrtTEf> (?V THE 

ELFCTRjc mm 
pa as 

86 - **f- RfM) THE LETTER INTO fCMOfiV 

9h PRINTK^, "*** IHSPT PBm FILE DISK ***". 

106 PR1HT951Z"", I(F1JT"PLEflSE ENTER THF HftME ff T^€ PENCIL FILE 

THAT THE LEHER IS STCiRED IN <C.-* IF 'LETTER')";!.* 

lie IFLI='*"THENlf$='lETTER.-'Fa*' ELSE LEJ=LJ+"XPCL" 

126 OHERRCiR GOTO 560 

IM npErrv.LLE? 

140 OHERROR GOTO 970 

ISe CLS 

lea A='AH 

170 LlNEIMFWIH,f)f(X) 

im ' ** ADJUST FCfi DIFFERENT PRIHTERS ** 

IW IF 8J(;0="' THEN ftt(K)=" " 

200 M?IIJTfU<X:> 

21ft IRC^S aS:PRINTe512."THIS LETTK UILL TW;E THO PfffiES !M 

HIT <:eNTB?> if VOU UlSH TO GO »*. OR TVPE 'ABORT'"; IfPUTUJiIRU 
="f®»T" THEH CLOSE E* 
220 IF EOf<l) THEN GOTO 248 
r^ GOTO 16@ 
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248 aOSEl:FatS=iT09ee:NE^:aS.PRlHT9fd2,"LETreR ». HOU STORED 
IH WEHORN"; ;F(»l=lT(«ee.HE>a:a5 

258 PRINTSi512."":IHPUT'PLEflSE EfffER THE flflxmjtl NUMBER. OF CHflRflC 
TOK PER LINE 
THAT VOJR PRINTER CftN HfMlE (t/ft fiS m ";PI 

m iRi=e Tte(fi=80 

270 FORR=1TOX.IF LEN(fiJfl?>)>M GOSUBIOSO 

28eNEXTR 

298 aS.PRINTK12. ""; ■ lHPin'R.,EftSf EHTEft FILE NfltlE OF HftlLlW- LI 

ST 

CC/B IF FILE IS NflHED 'HLISTO";?!} 
380 IF m="" IVEU HL$=°N.IST/Pa" ELSE ML$=IS+"/f^L" 
210 OtfRRCR GOTO 988 
320 0reN'i",2.ll$ 

338 aS:PRINT@284--t* FILE FOUND. PLEASE LERVE DISK IH DRIVE **" 

548 PRM8512."", :iHPUT-SEfMR'S t»IE".Nfm 

350 LIHElWyT"SEMDF.P STREET ftDCsRESS 'iWm 

569 LlNEINPUT'STftTE., CITV ZIP "iSTflJ 

370 LINE INPUT-DATE OF THE LETTER"-' 'ifM 

388 aS:PRINT?3e4,HWtt:PRINTflD[>J:R?INTSTftJ'PI?IHTMI.INPUT"!S THI 

S CORRECT"; VJ IF LEFTJ<Vt.i:>='N" OOTO 346 

398 ONERROft GOTO 

480 aSiPftlNT^li""; : INPUT "LETTERS fWRESSEB WITH LAST NfB€ (V/ 

Vt)'-,W 

410 IFHtO'V AND HSO%' GOTO 4M 

420 IHPUT"DO VOU MISH SEUCTIVE PRINTItffi";G$ GJ=LEFT$(GJ.1)IF G 

tO'V AND GJO'N" GOTO 428 

438 IFG$="V" GOTO 478 

448 INPUT-DO VOU WISH TO STOP BETWEEN LETTERS TO ADJUST Pf*>ER (V 

m 

CA 'FORH FEED' MILL BE SENT TO PRINTE,R)";T» 
456 1R$0"Y" m> TSO'N" GOTO 448 

460 aSIF TJ="V" THEN PRINTK12-""J :INPUT"Hn ENTER TO START LE 
TTER'>2 

478 '** GET Hft* AND ADDRESS FROM 'HIST/PCL' 

488 OERROR GOTO 9% 

4^B=8 
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50»B=etJ:IFB:>7 GOTO !i90 

5i0LireiHPUTit2.B$<e> 

526 IF E0F<2) THEM a5:PRINT»52,"*** END Cf FILE *«»";PRINT:PR1 

NTPftINT"HIT ENTER TO RERtJN PROGRfH"; JNPUTOrRtW 

526 OtCRROR QOTO 

548 IFej<B)='°" GOa^ 568 .GOTO 460 

556 GOTO 500 

568 '*** TEST FOR fKRE THflN ONE BLf*IK LINE ffiTMEEN NH1ES 

5?e IF B<2 GOTO 498 

5^ '**« F!»D tWT IF IT IS ft PERSW OR ft COWflNV 

590 l«J=LEFTt(B<l>. 3> :mSSt=LEFT$(fit(l), 5> :(1St=LEFT$(»(i), 4) 

686 IFLEFTt(gt(li,l>0"l1'' THEN a="D0« SIRS:':GOTO 748 

610 IF mt=*m. • m mw="Mr, " or m»="mr " or im='m. • or mi=- 

MS ■ OR ms='m ' (K MM="MS. " OR W3="MS " THEN TL$=«*:G0T065e 

620 IF BlSS$="HtSS " OR WSS$="flISS ■ THEN TL$=MISS$G0T065e 

636 IFMSJ="HRS " OR HSt="!«S " OR H5$="«S " OP I1S$="HRS. ° THEN 

TLt=MS$.G0T065e ELSE f:j="DERR SIK:':GOT0 748 

648 '** FIND FIR5T m> LAST NflMES 

650 I=I^6Tl;(B$a>. • ")V=INSTR<I+1,B$(1)," '')S=INSTR(V+LBJ(i), 

660 '■ *=* ELIMIWITE MIMIE INITIAL ** 
670 IF e<>0 THEN V=6 
680 ONERt^E GOTO 1008 

m f$=nimm<±)- i+i.v-i-i> 

700 LN$=«IGHT$<Eaci).LFN(esa)>-V) 

710 {S€Rm a)TO @ 

7S IF m='W Th€H Cf="C€rtR "+FI+",'' ELS C$="OERR "♦TLi+" "+LN$ 

750 ' ** OfM TO 5EE IF PRINTER IS m ** 

74e IFPFEka43i2;=127 T^€N aS;PRINTK12, " ** Pf^INTER HOT RES>V 

**"; PRiNTC«662, ""; : iHPiiT"H!T ENTER «N REhDV"^ i3OTO740 

75ft -" ** PRINT LETTES ** 

76e 1FGJ="V" TJffM aSPRlfiTIS256.. "RFflr>V TO PRINT LETTER TO"FCftR 

=lTfe-PREMrBJ(l?>-r€XT:EL:S GOTO m 

770 HJ1NTS76S. "HIT <ENTER> TO F1?INT 
OR fiWV OTHER LfTTEB FOR HE'AJ {#*€"; 
7^ Et^ItKEVt !FEJ='"'l»TO 7S0 
790 IF EJOCHRtdS) QOTO 490 
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see as PRINT?2S4,''NG1J printing letter TO:" FCBaf=iTOe-R?INTBI(R> 
NEXT 

8ie LPRINnflE<^);NWtt 
828 LPRINnflB<^);fiO[it 
850lPC!NTTFiB<5e>.^5TM 
846 LPRlMTTfe(50);&fl$ 
850LPRINTSTRIN(a<4,S> 
866 FOR R=l TO B 

870 LPRINT E9(R)HEXTR " " 

S8fiLPRlNTSTRING*(2.52) 

3S« LPRINT Cf 

m LPRlNTa«*<32> 

918 FM? R=l TO X:!E R=46 THEM LPRIWT CHRt<12> 

92g LPRINT Fl$<R>;NEXTR 

9?^ LPRINTC:W»(12> 

?4flRETU?H 

956 ^ *** ERpOft TRfiPPINO RftlTINE5 *** 

%8 as Lt=""PRIMTK20, " *** FILE NfflC IMXIRRECT PL£ft5E PE?TflT 

E w*":RESUI€100 

978 CLSPRINT»I?."LEnER EtfiMflT ItCtSRECT fMCK LINE LENGTH 

SHE RERUN PRWSflH ****". ;EHt) 

see as iis="" fuintsssb." *** Fin hwie tncorrect fiebse re^tat 

E wt-'i-RESlMSge 

990 aS:f^iNTt521, "*** FILE FSSIftT ERROR - PLEASE CHECK MLIST ** 

t 

*** FILE AND RESrW THIS P^-^Mm " ***" El« 

10^ as PRINT?256, "NAME [&.S ffiT Cn^FOftn TO FORtWT SKlPPIHij Cf^ 
EP"Ffi(«;-iTOPP?llJTeJ;R>l€KTRFOIS=li'OlflPi0r*XTE RESU!€ i% 
1018 ■■ ** SL^OUTiriS FCfl? RET'tT'Jm: L]I€S THAT ARE TOO LOtfi ** 
1828 aS:Fi;iNT»?=^, ■'** LINE f*.l«ER",R; "IS";LENfftf'R;'., "("HfiPWTEP 

S imi" 

10:;0 I^INTTT REFfiS:"PRIHTftI!R);INP.tT"» W HISH TC RETVPE (V/ 

N)";VJVf=LEFTt<VS,lVIF VtCV AND VtCN" GfiTCi 10'i@ 

104Ct !FVf="N" THEN (^TURN 

iffie ONERRCS GOTO0 

im PRINT PRINT"PLEA5E ENTER CCftRECTED LINE:-INPin' A*(R> IPLEN 

(fit(R)»M THEN PRINT'STILL TCO LONG '" " GOT 01968 

1870 RETURN 
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Investment 
Portfolio 
System from 

Personal Finance Systems 

Data Management Module. This high quality 
professional program enables you to keep accurate, 
up-to-date records on your stock portfolio. Update 
by ticker symbol, track splits and dividends, output 
separate reports on data, value, gain, and return on 
investment. Data storage on tape or disk, with both 
versions included. 34 page instruction manual. 
Level II, 16K and disk 32K $49.95 

The Sohware Exchange 

6 SOUTH ST„ MILFORD. N.H. 03055 (603) 673-5144 
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The new word 
processor from 

Radio Shack! 




FEATURES: 

• Lower case capability • Total document formatting • Error correction by 
deletion, insertion, ovenwriting and exchanging* Automatic (leaders, footers 
and page numbers • Global find, replace and delete • Operator-defined 
blocks for hyptienation and editing 

SCRIPSIT Will produce letters or any text material. The 
documents can be stored on disk for revision and update. 

REQUIREMENTS: 

• 32K Level II TRS-80; one or more disk drives; line printer 
if you've seen or used the Electric Pencil, you'll be delighted with 
SCRIPSIT's wersatiltty and extra features. Rapid typists will 
appreciate the (acl that SCRIPTSIT does NOT lose letters altheend 
of each line. Titles can be automatically centered. The Screen width 
can be changed to matcti your printer. Tabs can be set, etc.. 

If you are a BASIC programmer, you'il want to utilize SCRfPStT's 
ability to work directly with BASIC programs. 

SCRIPSIT comes on disk with thorough documentation and 
sample text files. Includes three audio cassette tapes which coverall 
aspects of this exciting Word Processing Package, 

The Complete SCRIPSIT Package (with Binder, Manual. 2 Disks, 3 
Cassettes, Instruction Summary Card and special press-on key 
labels) is only $95.00 + $2.00 shipping. 



Hie SoAHore £xc/iafige 

6 SOUTH ST., MILFORD, NH 030S5 (603) 673-5144 
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RANDOM 

ACCESSING TECHNIQUES 

DISK FILE 

STRUCTURES 

AND PROGRAMMING 

AIDS FOR THE TRS-80 

PROGRAMMER 

by Will Hagenbuch 



As we all know from even a 
cursory glance at our Disk 
Operating System instruction 
manual, there are two methods for 
storing infoimation on diskette — 
sequential and random. Sequential 
does not seem to pose a problem 
for most readers since it is simply a 
carry-over from the methods 
employed to write cassette tape 
files. However, the employment of 
random file techniques is another 
story. 

The Disk Operating System 
- manual lists a variety of advantages 
offered to the programmer who 
uses randomly accessed record 
files. Some of these advantages are 
not readily visible to the 
programmer; such as the space- 
saving features of a single 
Input/Output (I/O) buffer. What is 
apparent is the time savings 
achieved from the direct accessing 
of a desired record. After titillating 
the reader with the many time- 
saving virtues of random accessing, 
the manual leaves the reader with 
the promise that once you have set 
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up the file structures, random I/O 
becomes quite simple; however, 
"this is the hard part — it takes a 
little thought!" (Amen.) 

While there is ro intent to take a 
"cheap shot" at the Authors of the 
Disk Operating System manual (in 
fact, it is an excellent condensation 
of a very involved subject), it seems 
that somewhere among the next 
ten and one-half pages many 
readers lose the bubble. Be it on the 
first page, or somewhere around 
the middle, many readers tend to 
adopt the attitude that "Oh well, I 
know how to write sequential files, 
I'll just stick with that until someone 
explains all of this to me." The 
problem with this laissez (aire 
attitude is that seldom does one 
achieve his goal or satisfy his thirst 
for knowledge from among his 
peer group. After all, they probably 
have the same problems as you do! 

To summarize the information 
provided by the Disk Operating 
System manual, we might say that it 
provides you with the basics for 
using random files. It tells you that 



you must "OPEN" a file with the 
access code "R" to specify random 
files, that you must assign a buffer 
number (1-15), and that you must 
assign a file name. 

For the moment, let's stop right 
there. Trust me that, as we proceed 
through this article, you will find 
out that this information on how to 
"OPEN" a random file is really all 
you need to know! What we will be 
doing, further along in this article, is 
introducing you to File Manager- 
80, an effective alternative for disk 
I/O handling. However, before we 
get involved with File Manager-80, 
let's discuss some of the other 
aspects of systems development 
using disk files. 
Random Accessing 

Let's assume for the moment that 
you have, or will have, the ability to 
use random accessing techniques 
to fetch and write records from and 
to a file. It would naturally follow 
that you would need to know 
"which" record. This is quite easy if 
you have a listing of the file and it 
contains the number of each 
record; but, what if you don't have 
such a listing? Well, you might 
consider accessing every record on 
the file with a FOR...NEXT loop and 
inspecting the data content of the 
file to see if that is the one you 
wanted. However, this is no more 
efficient than a sequential file, is it? 

The determination of "which" 
record is best done by the use of an 
Index. An Index might be described 
as a pointer to "which" record on 
your random access file contains 
the information that you want. 
There are two methods of creating 
such an Index; either by using the 
FOR...NEXT loop to read all of the 
records from your random file one 
time, or by creating and 
maintaining a separate "Index" file 



which is normally a sequential file. 
In either case, the file which is the 
basis of yojr index will be read into 
a memory array which we will call 
your Index Table. Naturally, you 
must have included a dimensioned 
array in your program to 
accommodate this Index Table 
which must include, as a minimum, 
the Data Element which is to be 
your "key" for locating your record. 
This "key" may be either an 
alphanumeric or numeric element 
and you must dimehsTon 
accordingly — and you will need a 
sufficient array size so that there is 
one bucket for every record in your 
file, including any file size 
expansion that you may have in the 
future! 

As an example, let's say that you 
have a random file of customers. At 
the time each of these customers 
was placed in the file, a unique 
number was assigned to each 
customer. This Customer Number 
isiheDataElementthatwillbeused 
as the "key" for accessing the 
customer record. If the Customer 
Number is a part of the customer 
file it will need to be split off (using 
the FOR,„NEXT loop) to create an 
Index Table each time a program 
requiring random access of the file 
is run. Similiarly, if the Customer 
Numbers had been maintained in a 
separate file they would also be 
required to be accessed each time 
the program is run, but this would 
appear to be the more prudent way 
since fewer bytes of data would 
need to be accessed in order to 
build the Index Table. In either case 
you would place the Customer 
Number into a one-element array 
that had been dimensioned to 
accept ft. 

Now that the Index Table of 
Customer Numbers has been 
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established, it is a simple procedure 
to relate the Customer Number to 
the physical record location for that 
customer's record. By searching the 
table with the desired Customer 
Number and finding a match (equal 
comparison) on the Nth record, we 
know that the customer record is 
the Nth record in our random 
access file. 

The searching of the Index Table 
is, however, an art unto itself. If we 
were to insure, in our program 
which creates customer records, 
that all Customer Numbers were 
assigned sequentially in ascending 
sequence, we could use a Binary 
Search to locate the desired 
Customer Number very quickly. A 
Binary Search is a table search 
which "bisects" the table entries. In 
other words, if we were to compare 
the desired Customer Number to 
the "middle" entry in the Index 
Table of customer numbers and 
that comparison told us that the 
desired number was less than the 
middle entry, we would have 
effectively reduced further 
searching by one-half. Obviously, 
the Customer Numbers between 
the middle and the top (last 
number) of the array will not match 
thedesirednumber. So, let's look at 
the bottom half of the Index Table. 



Our next comparison would beat 
the first Index Table entry (or the 
last entry if the key we aresearching 
was "high" to the middle). If our key 
is "low" to the first entry (or "high" 
to the last entry) we know 
immediately that the number we 
seek is not on the table. Obviously, 
whenever an "equal" condition 
occurs, we have found our number 
and, consequently, our pointer for 
random accessing of the customer 
file. 

If the second comparison (the 
one to the bottom of the Index 
Table) was "high", we know that our 
key number ranges somewhere 
between the first and middle 
numbers on the index table. 
Therefore, we would compute the 
middle location between the first 
and middle Index Table entries and 
do the third comparison against 
that entry. Again, if unmatched we 
would continue the bisecting until 
the number was either found by an 
equal comparison or determined to 
not be on the I ndex Table. The "not 
found" condition rs determined 
when no more bisecting is possible 
and an equal condition has not 
been found. 

The following code is an example 
of a Binary Search routine included 
as a program sub-routine: r. 



20 DIM AR(500) 'Dimension statement for Index Table array 
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500 'Binary Search Sub-routine 

Enter with search argument in variable "XA" 
510 XL=1 'Set Low Limit' 

520 XH=n 'Set High Limit to number of total table entries 
530 XM=INT([XH-hXL)/2) 'Compute Middle Entry number 
540 IF XM=XH OR XM=XL THEN XM=0 : RETURN 'Not Found 
550 IF XA AR(XM) THEN XL=XM : GOTO 530 'Bisect 
560 IF XA AR(XM) THEN XH=XM : GOTO 530 'Bisect 
570 RETURN 'Found! Exit with record pointer in "XM" 



However, if your Index Table was 
not in ascending sequence, you 
could not use the Binary Search and 
would be relegated to the slower 
method — the Sequential Search. 

In the Sequential Search, we must 
look at every entry in our Index 
Table; or at least until we find our 
match. We do this with the 
FOR, ..NEXT loop routine. The 
fastest method of performing this 



search is to break out when (and if) 
a match is found. If you are going to 
employ the "break-out" search 
loop, be sure that it is not a nested 
FOR, ..NEXT loop (inside of another 
FOR...NEXT loop) since you will 
leave an "unsatisfied NEXT" and 
that's a "no-no". An example of the 
"break-out" Sequential Search is as 
follows: 



20 DIM AR(500) 'Dimension array for Index Table 



500 'Sequential Search 

Enter with search argument in variable "XA" 

XH=Number of Index Table entries 

510 FOR 1=1 TO XH 

520 IF XA=AR(1) THEN RETURN 'Foundl l=Pointer to record in file. 

530 NEXT 

540 1=0 : RETURN 'Set 1=4 to Indicate not found. 



Of course, in either case, your 
program will have to handle the 
situation of a return with a "not 
found" condition as indicated by a 
zero value in the Index Table 
pointer; "XM" in the first example, 
"1" in the second. 
Optional File Structures 

To get the maximum use out of 
your disk storage space, you should 
have a working knowledge of how 
you might organize files to best 
serve your needs. It often happens 
that if you are limiting yourself to a 
Fixed Format file structure, you 
might need to create several files, 
and consequently require several 
buffer allocations, when one Multi- 
Format file would do the job. 



A Multi-Format file, for the 
purpose of this article, is a file that 
contains more than one format of 
records, or records which have 
more that one format. As an 
example, you may have reason to 
require that a file contains a 
"header" record of one format and 
some variable number of "trailer" 
records in another format. We will 
be using the term "header" to 
define any format which is the first 
of a group of related records; the 
term "trailer" will refer to the 
remainder of the records in that 
group. In this example, we will refer 
to the structure as a "Dual Format" 
file. 
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Header 



STRUCTURE A. — The "Dual Format" file 

Batch Number Date of Batch Keyed by: 



Ttaiier 1 



Trailer 2 



Date 



Customer Number Amount 



Date Customer Number Amount 



Trailer n 



Date 



Customer Number 



Amount 



In this example, we see a typical 
application of transaction entry 
employing the "Dual Format" file 
structure concept. The first record 
on the file contains such one-time 
information as tFie Transaction 
Batch Number, Date of the Batch, 
and Identification of the Operator 
who entered the information. This 
format appears only one time on 
the file. 

The second format is that of the 
transactions which make up the 
batch. One record is used for each 
transaction and the number of this 
transaction format that may be 
placed on the file is limited only by 
the physical size of your recording 
media (disli or tape). 

The second example of Multi- 
Formatted records will be called the 



Header 



"Variable Formal". In this type of 
struaure, we use two different 
formats in the same record; and, of 
course, the number of records that 
can be stored in a file is limited only 
by your physical storage capacity. 

In the "Variable Format" 
structure, the number of trailers for 
each header must be specified. 
Because both the header and the 
specified number of trailers must 
be contained in a single sector of 
disk (255 or 256 bytes, depending 
on the DOS you are using), the 
aggregate size (bytes) of the header 
plus the number of specified 
trailers cannot exceed the physical 
restriction placed upon you by your 
DOS. 

Let's take a look at this structure: 



Trailer 1 
Trailer 2 
Trailer 3 
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STRUCTURE B. — The "Variable Format" record 


Name 


Address City 


State Zip 




Date 


Invoice Number 


Amount 




Date 


Invoice Number 


Amount 




Date 


Invoice Number 


Amount 



In this example, we see a typical 
application of transaction detail (or 
trailer records) applied to a 
customer record (or header). In this 
case, we have established a 
maximum ofthree (3) detail records 
per header record. It could have 
been more or less depending upon 
our requirements — as long as the 
aggregate size of the header and 
the maximum numberof trailers for 
that header does not exceed the 
physical block size (255 or 255, 
depending on the DOS we use). 
Note that this file structure is called 
"Variable Format" because the 
trailers may or may not contain 
information. This does not mean 
that unused trailers do not take up 
space — they do. But, whether or 
not they actually con tain 
information is a matter for your 
program to determine. 

It might be noted, also, that in 
order to optimize file storage space, 
if the aggregate records size is less 
than one-half of the block size (255 
or 256) the block may contain two 
(or more) "Variable Format" 
structure records. However, this 
"blocking" of records is only 
rhetorical since, if you are using File 
Manager-eO, this is an automatic 
feature. 

Again, if you are ready to cash it 
all in and go back to your cassette 
tape, do not despair! Help is on the 
way as we shall see further along in 
this article. First, however, let's 
discuss another aspect of data 
processing systems development — 
one that is often neglected but 
extremely important if your system 
is to survive the test of time! 
System Documentation 

Take it from one who has been 
doing this data processing thing for 
the past 20 years, the common 
denominator among systems. 



without fail, is that they will require 
change. In order that changes to a 
program can be made without 
chaos, it is imperative thai the files, 
upon which the programs are 
based, be fully documented. 

Today, you know perfectly well 
what you mean when you call a 
Data Element "CUT-OFF DATE"; 
but, will you remember next week? 
— How about next year? Now that 
you remember that "CUT-OFF 
DATE" means the date on which 
you are scheduled for the barber 
shop, I'll wager that you can't 
remember the variable name that 
you assigned to it in your program! 

If these typical problems, 
normally incurred in program 
maintenance, do not ring a bell, 
well then: 

a. Vou maintain outstanding 
documentation; or. 

b. Vou have one fantastic 
memory; or, 

c. You haven't written more 
than about one program — but you 
probably will or you would not 
have read this far! 

As a minimum, "good" program 
documentation consists of a 
reference to ail Data Elements 
(fields of information) used for files 
structures and a Record Layout (the 
arrangement of these Data 
Elements) for every file. In addition 
to the explicit definitions of any 
vague or ambiguous Data Element 
names, each Data Element should 
be cross-referenced to the variable 
name assigned to it in the program. 

Proper program documentation 
consists of these products, whether 
you are programming for yourself 
or for someone else; and, whether 
you are using a Micro-Computer or 
an IBM 370: 

a. A catalog of all Data Elements 
used in data files. 
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b. A Record Layout for each 
record file used, 

c. A "snapshot" of each video 
screen display. 

d. A sample of each printer 
output product. 

e. A narrative description of 
the piogram operation. 

Products c. and d. are easy. Most 
Operating Systems that are in 
general use today provide the 
facility to automatically print the 
video screen display and your text 
data print-outs will suffice for 
sample reports. The other products 
pose more of a time problem and 
are the ones that generally get 
pushed aside until later — 
whenever "later" is! 

With your indulgence, we will be 
providing some viable alternatives 
to completing documentation 
products a. and b. as a by-product 
of FM-80 operations. 
File Manager-60 

This article has, thus far, posed 
many problems and few solutions. 
Well, from here on out, it is solution 
time — and the solution is File 
Manager-80. 

If your Disk Operating System 
manual left you cold, I am sure that 
this article has been of little help. 
Early on, you were advised not to 
despair. The reason is that File 
Manager-80 can make all of those 
file structuring and random 
accessing problems go away 
because it writes your file I/O 
instructions for you! And, as a by- 
product, will produce a Dictionary 
of Data Elements and the Record 
Layouts that are so vital to your 
system support documentation. 

We have previously discussed 
several file structures (Dual Format 
and Variable Formal) that might be 
employed when a plain vanilla 
Fixed Format record is not suitable. 

62 



File Manager-80 will accommodate 
all three of these file structures. In 
addition, your worries (if you have 
any) about optimum record 
blocking and those pesky little 
algorithms you need to find sub- 
records are taken care of 
automatically by File Manager-80. 
Of course, File Manager-80 will 
not do everything. You must still 
"OPEN" and "CLOSE" your files at 
the proper time. You still have to 
determine "which" record you 
want by using one of the indexing 
methods previously described. 
And, you still have to pour your 
own coffee. But it will do almost 
everything else. 

How File Manager-80 Works 

As we all know, or are soon to 
find out, the first thing you need to 
consider in the development of a 
program (or system) is what 
problem you are attempting to 
solve. (Programmers, including Ish, 
can be characterized as persons 
with solutions who run around 
looking for a problem.) After 
identifying the problem, it is our 
job to reduce that problem into 
meaningful pieces of information 
(we'll call them Data Elements). 
These Data Elements consist of 
Input (information that we start 
with). Output (information that we 
end with), and perhaps Inter- 
mediate (information that needs to 
be massaged in between Input and 
Output). 

The second logical step is the 
arrangement of these Data 
Elements into logical Record 
Layouts which will serve our Input, 
Intermediate, and Output 
requirements. Naturally, we strive 
to determine all of the required 
Data Elements at the start. 
However, we sometimes miss one 



or two and ihis is where File 
Wanager-80 really does its thing. It 
will allow graceful recovery (rom 
difficult situations such as adding a 
couple of new Data Elements to an 
existing file structure. 

Once our Data Elements are 
defined into Record Layouts (or at 
least our first cut at them), we will 
assign an arbitrary value to each 
different Data Element. Any value 
from 1 to 999 may be used but you 
will soon acquire a "pet" (no pun 
intended) method of assignment. 
We are now ready to use File 
Manager-aO. 

We begin by entering each of the 
Data Elements for our proposed 
system according to the prompts 
offered by the program. You will be 
prompted for the number you 
assigned to the Data Element 
(hereinafter called the Data 
Element Number, or DEN), the 
Name that you want to call the Data 
Element, and a single character (I, S, 
D, or $) to identify the attributes 
(Integer, Single- or Double 
Precision, or String) of tlie Data 
Element. Optionally, you may also 
enter any comments you feel 
necessary in the future to refresh 
your memory as to the intent or 
content of the Data Element. This 
information serves as the data base 
for the printed Data Element 
Dictionary; the Record Layouts; 
and, as we shail see later, the 
creation of the actual I/O 
instructions. 

After all Data Elements have been 
cataloged in the data base, we may 
use File Manager-80 to prepare the 
individual Record Layouts for each 
of the file struaures that we plan to 
use. This requires that you enter the 
File Name that is to be used in the 
creation of the data file to which the 
Record Layout applies, and the 
following file attributes: 



a. Is it to be a Disk or Tape 
storage file! 

b. Will it be a Sequential or 
Random Access file? 

c. Is is to be a Fixed Format, 
Dual Format, or Variable Format 
file? 

Vou will then be prompted to 
supply al! of the Data Elements 
which are to be contained in the 
Record Layout. The prompting will 
be based on the type of record you 
specified. For example. Fixed For- 
mat records, Dual Format records 
consist of Format #1 (header 
record) and Format *f2 (trailer 
record), and a Variable Format 
record contains both header and 
trailer formats as well as a 
specification of the number of 
trailer records that are in each 
logical record (remember that a 
Variable Format has a definite 
number of trailers?). Whatever the 
type of record, you need only 
supply the DEN (Data Element 
Number) and the variable name 
you wish to use for the Data 
Element in your program. You may 
then print the Record Layout 
whenever you wish. 

Once you have catalogued your 
Data Elements and created your 
Record Layouts, File Manager-90 
will create the actual I/O 
instructions required by your 
program to read (get) or write (put) 
records from or to Disk or Tape 
files. If your record size permits 
blocking (multiple records per disk 
sector). File Manager-80 will do this 
automatically and will create those 
pesky sub-record computation 
algorithms and imbed them in your 
coded instructions along with the 
necessary "FIELD" statements. 

When I/O instructions are to be 
created. File Manager-60 will 
prompt you to provide the file 
buffer number you wish to assign 
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to thefile,theprogram line number 
on which you wish to instructions to 
begin, and the line number 
increment you wish to use 
(default=10). 

The instruaions will then be 
created and stored so that you can 
later "MERGE" them with your 
program. In addition. File 
Manager-80 will prepare a Cross- 
Reference Listing oi the line 
numbers to be used to access the 
records from any file you have 
catalogued. As we shall soon see, 
this Cross-Reference Listing is 
invaluable when you are writing 
your mainline code for a program. 

Working With Fife Manager-80 

File Manager-80 has supplied you 
with several tools which you now 
use in program development and 
will retain for permanent 
documentation of your programs. 
The Data Element Dictionary; the 
Record Layouts; and, of course, the 
actual I/O instruction code and 
Cross-Reference Listing will 
materially assist in program 
development. However, you must 
know how to use them. 

As we have said previously. File 
Manager-80 will not "OPEN" or 
"CLOSE" files —you must do that. It 
will, however, perform all I/O 
functions for you once you have 
OPENed the file. File handling for 
sequential files is easy, you simply 
perform a "GOSUB" to the 
appropriate line number as shown 
on your Cross Reference Listing. 

Random files are a bit more work. 
Before you can access a record from 
a random file you must know the 
physical record number of the 
record you want. It is suggested that 
one of the two indexing methods 
described earlier be used. You will 
note that both methods provide an 
exit with the "found" record 
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number in a variable (XM" in the 
first example, and "I" in the 

second). Just remember that if the 
returning value of the variable you 
might use is zero, you have not 
found the record pointer. 

To access (read or write) the 
proper record, you simply set the 
variable "UR" to the value of the 
"found" record pointer (either 
UR=XM or UR=I in the examples) 
and do a "GOSUB" to the line 
number shown on the Cross 
Reference Listing. Voilal You have 
either read or written your record 
to or from the variable locations 
you specified when creating your 
Record Layouts! Isn't that nice? 

Please note that the variable "UR" 
was specified for File Manager-80's 
use- In fact, variables "UR", "UT", 
"UP", "US", "U$", and 'US$( )" are 
used by the I/O instructions 
created by File Manager-80 and it 
would be most prudent to avoid the 
use of these variables in your 
program, except when "UR" or 
"UT" are specifically called for. 

When you are working with the 
Variable Format record type (a 
header followed by some specified 
number of trailers), you will use the 
variable "UT" to identify which 
trailer record you wish to access. It 
works like this: You access the 
header record in the same manner 
describedabove, by setting variable 
"UR" and doing a "GOSUB" to the 
appropriate line number. This will, 
of course, bring in all of the 
associated trailer records to the file 
bufferarea because they are part of 
the logical record. You will now 
have the header record setting in 
the variables you have specified on 
your Record Layout. 

To access the trailer records 
(move them to your variable 



locations), you simply set "UT" to 
the physical number of the trailer 
you want (1. 2, or 3 if you have 
specified three trailers) and do a 
"GOSUB" to the appropriate line 
number from your Cross Reference 
Listing. One of the best ways to 
handle trailers is to set up a 
FOR...NEXT loop after you have 



read the record into the file buffer 
(with "UR") which will bring all of 
the trailers into an array for 
whatever processing is necessary. 
Assuming that we might have a 
trailer record with one variable 
("A"), the routine might look 
something like this; 



500 UR=nn 'set variable UR to pointer number 

510 GOSUB nnnn 'Get header record 

520 FOR UT=1 TO 6 'Assumes 6 trailers per record 

530 GOSUB nnnn 'Get trailer record 

540 A{UT)=A 'Move data to array 

550 NEXT UT 'Loop for alt trailer records 



So this is what File Manager-80 
can do for you, As we said earlier, if 
your Disk Operating System 
manual has left you cold as far as 
random accessing is concerned, 



you might find that File Manager-80 
is the solution. Or, even if you have 
mastered file accessing, File 
Manager-80 may appeal to you as a 
time-saving programming tool. 




Postscript 



In this article we have attempted 
to do several things not the least of 
which was to make you cognizant 
of the versatility and usability of File 
Managet-80 as a programming aid. 
In addition, we have; 

• attempted to provide an 
amplification of available 
information on Disk File Handling 
from what is currently available in 
our Disk Operating System manual; 



• covered, albeit cursorily, the 
accessing of random file records by 
a couple of techniques; 

• provided a couple of 
alternatives to the plain vanilla 
Fixed Formal file structure; 

• presented a viable alternative to 
the "ho-hum" of writing file I/O 
instructions and program 
documentation. 
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computer! 

PROGRAM FAST & EASY! 

Use ROM routines in your 
BASIC and Assembly 
Language programs! 

All you need to know is in... 

REFERENCE GUIDE 
TO LEVEL II BASIC 
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oUrtnlflAr rmm Fuller Soltwan previously sold at S1&95 

TRS-80 Disassembled Handbook 
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Assembly Language programs In listing format to examine and use 

ROM routines. 
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THE AUTOMATED 
DISKETTE DIRECTORY 

by George Blank 

All you do is insert the diskette in the drive and type the name or number you use 
tor ttiat diskette. The program automatically reads the directory of the diskette, 
ignoring invisible flies like BASIC/Ct/D and normal DOS tiles like 
DiSKDUMP/BAS. and stores it in a disk file. 
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Printout to screen or line printer 
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ALL PURPOSE 
PRINT ROUTINE 

by C. E. Laidlaw 




Here is a handy routine to control the output of your printer. Just follow the 
Instructions to set the number of characters per line, lines per page, spaces in 
the left margin, and lines of text on each page. In addition, you can program a 
line feed after each carriage return if your printer needs one, print a tear line 
between each page, and double space. 



m a.s. PRINT 


= -}m^i.i < = 




BV C. E. LfiIDLfil4 




m PRINT" 


flil PfS<PCi5E PRItJT ROUTINE 




FOR USE WITH Tl€ TRS-8fi M) PflRfiLLEL INTERFfCFt) mHlFM SUCH RS 




THF CENTfWMir:?. 


m\)Ei 77^ (mm shack lihe printer id. 




120 riEflR i06-K,FI[^T C>Z:f)EFSTR 9,B:BK=STRMi$';5e.." ^'J 




:L38 m=m 


■ ffiX CHfffiRCTESS PER im (IHCLUDING HfiRGIH) 




148 fS-10 


' immi HflRGIN - SPRCES 




J 58 a:^t.4 


■ f^JPMRI, LINE LE^ffiTH (LESS MRRGIN) - DtflRflCTERS 




lb« P(1=J.00 


'" ffiK PRGE LFriuTH - LINES PES PRGE 




178 Pl=fi. 


- NORMRL PRGE LENGTH - LlfCS PER PFlGE 




m PT=b0 


' Wmn.. TEKT LEtiCiTH - LINES PER PfiGf 




m LF=e 


■ LINEFEED ffTER t/P FLAG 




sm Ds=0 


'■ DOUBLE SPfiCE RFTES C/K FLBG 




21? VM 


- TfHR LIf€. FLRG 
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228 P(;:INT:F1i:i(jrPiWIC>ES l. VflRtfaf. PfltS AND TE^a lEHGTH <";F« 

. "LlffS/'PftGF m^y. PRINTTf*8(10>"2 WIFfi.E WfifilN FiNC' IW. LEH 

GTH :";CR;"f>ffi/L!HE NfiK>^ 

239 PRIHTTftB(10i"2. TERP LIfE (STWEEN FflGf? WHEN USING RCiL PfiPE 

t?":PRII-)TTflR<13>"4. PP!HTS PROPER "■ VICE SEHJflRE BRftCKET 

246 F1?IHm;?6. "ENTER SV5TEM 5I2E <1=16K. 2=12K, i=43<) ".: INPUT 

^5: IF SKI OR S5>3 PRIHTP8%,B(i :6fiTn ?40 

250 SS=S5+1:»!'=5?*1i7:H624-1 

369 l1S'=PEFi:(lfiS61>+2fif*PEEt(IS562>:IF t1SK=t*t'-3SS THEN 2fie 

27? ri.5-PRINT^?S6, " 

SYSTEM NOT PROPEfiLV INITIALIZED 

?1EH0RV Sm MJST 3F ^.FT AT i.EfiST Igg eVTES L.ES5 THftN mxIMUM 

STFIRT fiiSIM «€> RESER'i'E HENORV aT";m'-lg7^ "OR lONFR 
2Si IF PF£Kii62^)-291 THEN CMCS' ELSE GOTO 739 
?5Ci CIS PPIHT"NORRRL 5FTHP- ".PU "lJNF.ypBr£ ";PT; "LINES 

TE^:T/PFiGF' ■ R?IfJTTflE(15j CS, "SPFiCE HfiROm "; CL. "OlFlRfiOTERS/ 

(IHF 

5fl0 PRINTP;?H.."!JOPrtffl_ SET-LIP ("V/N! ".■ GOSIP t^IF TE=2 R?IKT?19 
2.BK,; :GOTO iffit ELSE IF TE=1 THE.N :m 

l^g PRINTe:;26."ffiTE: TE^T LENGTH < PfiCiE LENGTH < ="^PM;"LIt£S/Pfl 
GE", PRTNTK%, -llfiPfilN + LINE LENGTH < =";Cfl; "CHfiRflCTERS.lIfE 
120 PPINTf"=as, "PAGE LENGTH ". ■ INPUT PL- IF PL>Pt1 PRINTSSIS, BK; 'GO 
TO 330 

:<30 fRINT^4. "TE:<;T length "^ -INRtT PT:!F PT>=PL PRlNTli64e.E3(:GO 
TO 538 

S4fl PR!!JTf'7!W."l1flR6!N IEI«TH "; : INPUT C5 

im PR!NTf3M."LINE LENGTH "i -INPUT IX:1E a+CSX-fl PRINT^i?%,6K^ 
,PRINT)*7fS:..B(, GOTO 340 

^m as-pRiNTisje, "linefeed fftfr ivr wm ": gosub mje te=2 

THEH 368 ELSE LF=TE 

378 PRiNTC'14S. "GOUFiLE SPACE RFTER O^ (\M) ". -.GOSUB 6e8:IF TE=2 

PRINT&128.BK: GCTO 37B ELSE DS=TE 

3SS PPINTi!i276, "TEftfi' LIW <\VH) ", :GCfiUg fM IF TE=2 PR1NTK;S6.8K 

. GOTO 388 ELSE Ti.=TE 

3^ PRtNT#4e6, M N I T 1 fi L I 7 I N G" 

4«l lie=IHTf<t1S'H)/256) LB=HSttl-256»«Ei 

418 IE (1?'>32767 TJffH HS=MS'-e^3£ EISE 115=115' , 

420 FOR I=HS+1 TO t1S+lg8:Q0SiB ;^:HE>CT ' . 

U-t- 



410 ' SET UP LM PRIMTER fMim. BLOtt; 

448 PW'E 1642?, L.B+3; POKE 16422, fS : POKE lf.4?4, PL : PKF ifA?5,i)Pm. 

E 15426.. PT 

450 ' SET Wmi}i m.' LINE LENGTH 

460 POKE t\Sfi,C5f'<M. «5+S-l:I.+1 

478 IF LF=0 THEN F(S 1=3 TO 2P0KE a^>Oe+i.6 MF:-^ 

480 iF D5=? THEN FOR 1=8 TO 8;PiXE R5+U2+I.0NEXT 

4% IF TL=e THEN FOR 1=8 TO 0:Ptt!E 115+52+!, @:NEXT 

568 PRIHTC-515, "BE 9.m FRIMTFR IS TUPNED m m REftW - THEN PR:E 

SS ENTER "^:imiT fi 

518 IF TL=e THE,N %8 

^^8 IT*="50R!:-;C«S£tf?-'SQRTfiONNCiTX0+RESTfH^: GCINKEVS" 

530 J=VflRPTRaT$):Kl=PEEKi.]+1i Ki>=PFFk'<J+.?)-.Il=KU3*i6*f;2 

548 IF PEEK( 16396) -201 I>EFIJSR0=J1 ELSE POKE 16526, Kl POKE 16527, 

K2 

558 FOP I=.!l TO .,I1+17G09JB ?M-NEXTJ=I.ISRCJ> 

5Hf PRINTK42. "THE Fll.i. FIJRPKt PR1^T RtflJTIHF IS IHITIfiLIZED HNO 

Re»V TOGO" SOTO 712 

m itJPlJT fiTE=0TF ft<:>=V" hN& fiO"N' THEN TE=2:RETLIRtJ 

618 IF fl='V" THEN TE=i 
6^ RETURN 

700 REhC' D 

718 IF Kfi THEN D'=l1S!-D:Cl=IHT([)!/356'-e2=f)!-Dl*^;:P0KE I.D2 P 

OKE I+l,M:I=!4l:G0T0 720 ELSE F^E !,{:- 

728 RETURN 

730 PRINT:PRINT PftIHT:E!JO 

l^ffi OFlTfl 8, 0, 1. 243, 121.. 254, 18, 48, 74. 254. 11, 40. 4, 254, 12, 72, 87 
1010 Dfita 221, 1^.5. 61. 221. 150.4,48. 6. 71, 205, -39. 16. 251.221 
1028 !>fiTfl 126. 1. 221, 150, 5. 79, 283, 5?^ 145, 71. 285. -89, 16. 251 . 285 
1938 OfiTfi -88, 62, m. 71, 62, 45. 2m5. -17S, 16. 251- W5. -80, 12- 65. 205 
1840 DRTfi S% 16, 251. 285, -80. 221. 54. 4, 9, 281, 62, 13, 24, 94, 20^ 
1050 DFiTfi -89, 24, 4, 62, lO- .?4, 85, 221. 52- 4. 221- 126. 5- 221. 158. 4. 46 
1068 ORTR 185. 281, 254. 13, 32. 46. 205. -125, 245, 221. 126. 4. 183, 196 
1878 DfiTR -84, 241. 205- -05. 201, 62. 13, 285, -178. 205. -89, 24. 214, 33 
1880 DflTfi -2, 78, 15, 112, K.-i.lB3. 200.71. 62,3.205.-178. 16, 251 
1890 DflTfi 201, 254. 91. 32, 2. 62. 94. 33. -"-. 76. 16, 18. 245. 205. -125, 205 
1100 DfiTfi -135, 241, 24, 234. 112. 245, 205. 289, 5, 32, 251, 241, 59. 232 
1118 CflTfi 55,281 

11^ DfiTfl 221, 33, 37, 64, 221, l.?6, 3. 221, 158, 5. 203. 63. 64. 79. 28^' 
1130 OFlTfl -4%m. 





by Douglas Carlston 

Giveupyourshoot-em- 
up games and move up to 
grand strategy! Fight your 
wars as a general, not a 
mere pilot! 



Galactic Empire — As commander of Galactica's Imperial 
Forces, you must conquer and hold the inhabited worlds of the 
galactic system. Deploy armies, raise taxes and conscript 
soldiers, gather intelligence, manage resources. 

Galactic Trader — You have succeeded in uniting the 
universe. Now you are an ex-soldier who must scramble for a 
living as an intergalactic tramp freighter. Outwit the locals at 
bartering, struggle with the fuel cartel, and outmaneuver the 
big trading monopoiies as you seek your fortune. 

Galactic Revolution — The emperor is a bungler, and is 
becoming upopular. Your popularity is a threat, and he is 
seeking to kill you. Turnabout is fair play, so you start a 
revolution to unseat him. Will you succeed? 

Each game...16K Level II Cassette $14.95 
Special! — AH three on Disk (32K) $39.95 

IhaSoHware Exchange 

6 5culhSlrev(. 8oK 68, Miffofd,NH 03055 603-673-5144 
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iIHI(D)§T ¥(D)W 



by Scott Adams 



Scott's long-awaited 9th adventure is here! 

Thirteen treasures are hidden somewhere in 

the GHOST TOWN. You'll need more 

resourcefulness than ever to find them before 

sunset. Be ready for a town full of surprises 

and some REAL ghosts! Bring along a 

sense of humor, but be alert for 

danger as well. !f you live so long, you 

MAY learn the answer to the 

tantalizing question: 

"What goes on 

in the saloon 

after dark?" 



Level II, 16K Cassette $14,95 



The Softt^are Exchange 

?6 SOUTH ST., MtLFORD, N.H, 03055 (603) 673-5144 
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Outstanding Utilities from 
, RACET Computes ' 



INFINITE BASIC 

Adds morethan 70 commands to BASIC that can be merged in any combinaiion 
lo make efficient uie of memory. Includes mairiK read, inverse, transpose, 
identity, sinnultaiieou5 equations, scaiat, vector, and multidimensional array 
arithmetic, dynamically reshape, expand, and delete arrays, change arrays in mid 
program, read and write arrays on tape, copy elements, zero and move arrays. 
String functions include left and right justify, truncate, rotate, tent justification, 
string centering, delete and insert substring, pack string, convert upper and 
lower case, translate characters, reverse strings, verify function, test number of 
occurences, masked string searches, encrypt and decrypt string, compress and 
uncompress string characters. High speed sort routines for strings and arrays, 
including rnultikey sorts, are also part of this package. 

For business users, an add on package includes multiple precision packed 
decimal arithmetic, with up to 127 digits of accuracy, binary search of sorted 
arrays, insert elements in sotted arrays, automatic page headings, footings, and 
pagination including forced end of page, and automatic hash for record 
retrieval. Intinile BASIC 349.95. Infinite business (add on) $29.95 

COMPROC COMMAND PROCESSOR 

Chain multiple steps in disk BASIC upon power up, relocatable key 
debounce, allows pauses for data entry at specified steps during 
execution (on cassette for disk systems only] for $19.95. 

DOSORT 

BASIC control program with high speed machine fanguage sort tor disk 
users. Merge and sort files on more than one disk if you have 2 or more 
drives. Seii prompting with manual. Specify 32K or 48K version $34.95. 

GSF GENERALIZED SUBROUTINE FACILITY 

18 FTiachinelanguagesubioulines with easy access (or BASIC users. Sort 
10O0 element arrays in 9 seconds, read and write arrays to tape, 
compress and uncompress data, move arrays in memory, duplicate 
memory, fast horizontal and vertical lines, 5 routines for screen control. 
Specify 16K, 32K, or 48K version, lor $24.95. 

REMODEL PROLOAD 

BASIC program utility allows you to renumber portions of 3 program, 
move portions from ore location to another, delete, merge, save and 
verify combined and changed programs, and create your own library of 
programs, subroutines, and even data statements. Works on tape or disk 
systems. Two programs on one tape. Specify 16K, 32K, or 48K 
(unspecified orders recei^'e 16K) tape $34.95 
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TIMSER 

Time series analysis program fits data to 9 different 1st, 2nd, and 3rd 
order curves. Goodness of fit data, tables, projected data, confidence 
limits, curve fit, variance, correction factor, seasonal and cyclical 
variations, inflation corrections are all implemented. Detailed user 
manual wUh illustrated examples. Order tape at $14.95. 

Y-VBAR 

Optical system design program allows manipulation of ray he ig h t s at 
lens surfaces using Y-Y Bar diagram method. With documentation on 
tape for $14.95. 

DISK SORT/MERGE 

DSM IS POWERFUL!!!!!! 

• Sorts large multiple diskette files on a minimum two drive Mod-I disk 

system. 

• All records are physically rearranged — no key files are required. 

• Sorts random files created by BASIC, including files containing sub- 

records spanning sectors. 

• Sorts on one or more fields in ascending or descending order. Fields 

may be character, binary integer, or floating point. 

• The sorted output file may optionally have fields deleted, rearranged, 

or padded. 

• Sort commands can be saved for reuse in production applications. 

• Single sort, merge,or mixed sort/merge operations may be performed 

in a single DSM application. 

• Sorted output may be written to a new file, or replace the original 

input file. 
DSMISFAST!!!! 
DSM is written entirely in machine language for fast sorting. $75.00 



IheSahware Exchange 

b SouthStn.v!, &)x b8, MilionJ, NH 030^1 b()'J-67 i-5144 



FRENCH 
BONMUR" 




lANGUAGE SALE: 



GERMAN 

"GUT MORGAN" 



SPANISH 

"SUENAS DIAS" 



LANGUAGE TEACHER SERIES FROM ACORN SOFTWARE 

These programs provide a whole disk full □( vocabulary and 
conjugation drills to be used in conjunction with a course in 
ItiB language. We have decided nol to offer educational 
software, so while supply lasts, you can have them for (IS. 95 
lach. Comes on diskelle. requires 32K memory. 



TteSoAuare Evcfiange 

S SOUTH ST.. MILFOnO.NHOSOSS e73-«144 
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NEW 

NEWDOS 

COMMAND 

by Carl William MacKey 




While going through the Level II manual (as I do at least once a month), I 
found a command thai might be useful to other programmers who use Disk 
BASIC. The command is the "LOC" command. I( is documented in NEWDOS+ 
but not In the TRSDOS 2.3 manual. After a call to fort Worth, Texas to try to 
find out what it was, I was toid that it is used ONLY in the Mode! II; J tried it out 
anyway, and here is what I've found out: 

(1) In DOS 2.2 and 2.3 the command generates an error. 

(2) in NEWDOS the command is active, but not too well documented. I 
discovered that its format is LOCfX) where X isequalio the buffer in use {from 
1 to 15) for Random files. The LOC command will count the number of times 
the buffer has been used by GET or PUT statements. So by using LOC you are- 
able to limit the number of times the buffet is used at one time. 

LOC(X) will return a value from 1 lo 32767. 

Below is a small program I used to check the command: 

5 CLEAR 2O0O 

10 OPEN "R",1,"TESTDATA:0" 

20GOSUB 10OO 

30 X=1 

40 LINEINPUT AS 

50 LSET T$=A$ 

60 IF LOC(1)-3 THEN PRINT "BUFFER #1 ACCESSED"; LOC(l); "TIMES": 
CLOSE: GOTO 200 

70 PUT 1,X 

80 X=X+1 

90 IF X 20 THEN 40 
100 END 

200 OPEN "R",1,"TESTDATA:0" 
210GOSUB 1000 
230 X=1 
240 GET 1,X 
250 PRINT T$ 
260 IF LOC(1|=2 THEN PRINT "BUFFER #1 ACCESSED"; LOC(1); "TIMES": 

CLOSE:END 
270 X=X+1 

280 IF X 20 THEN 240 
290 END 

1000 FIELD 1,255 AS T$ 
1010 RETURN 

I hope that some of you will be able to make use of this new command. 
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Has Gotten Better! 

Sargon, the program that came in 
first in the Creative Computing 
Microcomputer Chess Tourna- 
ment, has become Sargon II -$29.95 
•A vastly improved game 
•Faster response time 
"New level for beginners 
• Easierto preset board 
•Hint mode ■ What does the computer suggest 

Sargon il is the program that tool( 
on the maxi-computers in the West 
Coast tournament, and finished in 
the money! More thinl<ing power 
than you ever expected . 





ADVENTURE 

Get the granddaddy of the Adventure Games! 

From MicroSoft, the people who wrote 
BASIC for all the personal computers, comes a 
version of the original Adventure. NOW, you 
no longer need a PDP- 10 for aii the power of the 
original game! 

This game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the 
level of Grand Master (until you gain skiil, there 
are whole areas of the cave that you cannot 
enter.) 

Requires 32K One Disk ONLY $29.95! 

TheSattwareExtdhange 



()»wh.^in«,»urVi Kminl.Mlllifi'y Irfll-'JMfH 
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ADVENTURES 

by Scott Adams 
Adventures on Tape: Level //, i6k 

# Adventure Sampler 

Shorl version ot Advenlureland, a greal way lo Iry oui adventuring 
Ibul you'll gel addicledll $5,95 

Adventureland 

An enchanted world with 13 lo^T treasures guarded by magical 
beings 114.95 

9 Pirate's Cove 

Clues in blood-soated books, a pirate and his parrol, .alligators, 
treasure $14.95 

^Mission Impossible 

A chance lo prevent the nutlear reacior from being destroyed bv a 
saboteur's lime bomb $14.95 

9 The Count 

Waichout! you're inDracula'stastleandyou musi destroy him before 

he biles you' $14,95 

Voodoo Castle 

Remove a curse from Count Christo , $14.95 

% Strange Odyssey 

Advenlure in outer space in the ruins ol an ancient alien 
Civilization , $14,95 

9 Mysterv Fun House 

It will take all your ingeriuily just lo get past the ticket counter, and 
that's only the beginning! $14,95 

9 Pyramid of Doom 

In the shifting sands ol ihe Sahara lies an ancient Pyramid, liDed wiih 
Egyptian ireaasures $14.95 

yf: yf: Ghost Town 

Steal the treasures from their ghoslly guardians belore nightfall 
$14.95 

Adventures on Disk, in Sets: 

:Sel 1; Mission Impossible. Pirate's Cove, Advemuieland $39.95 
Set 2: Voodoo Caslle, The Count, Strange Odyssey , $39.95 

(programs are In Machine Language) 

6Sou^5tfeet,8ox68,M'llord,NH03055 603-673-5144 
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The HARDSIDE DISK EXPANSION PACKAGEallows you to upgrade your TRS-80 
Lewd II with 16K RAM to the power of Disk. 

*' Expansion Interface, 16K RAM 

* Percom Data Separator 

* Percom TFD-100 Disk Drive 

* Two Drive Cable 

* NEWDOS Disk Operating System 

* Box of BASF IMskettes 

This expansior. package saves you $125 oH of regular list prices. 

# PKG12 <22 n>s> $899.95 



Options: 

/Wditiona! Percom Disk Driue 
Addithtia! 16K RAM (Exp. Int.) 
Four Driue Cable 



$389.00 
$ 90.00 
$ 10.00 




6 SOUTH STREET, MILFORD. NH 03055 (603) 673-5144 
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JNVADE! 

by Chris Freund 




ichine 
inguage 

vel II tape $14.95 32K disk 

' you can continue to play this iiopular arcade game 
even after you run out of quariersi Shoot down the 
invading aliens, but protect your guns from their bombs. 
Great SOUND AND GRAPHICSI (s»b..<i .cq.i„. «.»n,ai .«piifi«r) 

TnardEr call The SollwHrF Enclwiiae Ta1l>Fnc l-SM-iSS-ntO 



For the thousands who have enjoyed 
X-Wing Fighter, X-Wing II presents 
a totally new element in the game! 



y^ 



x-uiinii II 



by Chris Freund 



cy ■ • ■ .. ■ 

ml^ ■■ You are Pilot 
U II of an X-Wing 
fighter ... 
Your Mission, 
Destroy the 
Death Star! 

{ Where X-Wing 1 left Death Slai looming on the 

screen, X-Wing II lets you guide your fighiennlo the 

' trench, find the exhdusl port, s'lm and rire — all the 

, while avoiding enemy lighters. Excellent graphics, 

A 13 levels of play, and extensive INKEV$ commands 

I make thi(, one oi our most exciting "real-time" 

mes. 

r Level II, 16K - $9.95 

Ihe Software Exchange 



6 SOUTH ST., MILFORD, NH 03055 673-6144 



81 



USING YOUR ELECTRIC 

PENCIL WITH THE 

RADIO SHACK 

LOWER CASE 
MODIFICATION 



The adaptation of the Electric Pencil to the Radio Shack computer 
requires a control key to access the command table. Since the Radio 
Shack lower case modification does not include a control key, this 
makes it impossible to use Electric Pencil with the Radio Shack 
modification. 

For many people, this is not a problem, as Radio Shack's Scripsit is 
better than the Electric Pencil for most uses and costs less. However, 
there are still some uses for Pencil, and some people prefer the more 
expensive, less powerful system. These modifications to the Electric 
Pencil will allow you to use the BREAK key for a control key, and the 
CLEAR key for the functions that the BREAK key is normally used tor. 

These modifications were provided by Jeff Brown on THE SOURCE, 
testedby Clay Schneider, and verified by George Blank. Thisarticle was 
written using the modiFied PENCIL. The modifications alsoskipover the 
upper/lower case question, the title, change the default print margin to 
5, and start you in the "Control K' sub command mode. 

Use the DFS function of Superzap 3.0 to make the following changes 
to PENCIL/CMD: (Make these changes on a copy of your program to 
protect the orginal,) 

This change will; 
At start-up, skip title card 

Allow for start-up default print margin of greater than 
Start-up with keyboard in lowercase- entry mode 
Start-up in control "K' subcommand mode 



F0074J from 


SA 


21 


CS 


ID 


11 


it 


5S 


CD 


CF 


67 


CD 


79 


6; 


lo 


5A 


3E 


es- 


32 


2A 


SA 


CD 


«D 


65 


C3 


D6 


61 


65 


fOOOfll Ij-am 


22 


81 


se 


2^ 




















lo 


11 


00 


00 


21 





















•The "05" is the start-up default margin and may be changed to 
whatever value you like. 

This change will make the "BREAK" key into the Control key, instead 
of thai obnoxioushidden little button. Use "CLEAR" whenever BREAK is 
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normally called for (exiting control— "K" subcommand mode, ending 
scrolling). IMPORTANT: These added routines use space in the Pencil 
title message, therefore, ZAP #1 MUST also have been made. 



fOTM7 troir 

Rnec fiom 

10 

F01D9 ficnn 
lo 

FOIOEI Irani 
lo 

FOlllFO horn 
In 

F0D69F fiom 
Id 

(contl from 
to 

{CDnT) Irom 
lo 



3A 

CO 
CO 

5D 

SO 

Sf 

sr 

K. 

n 

DO 

u 

3? 
BA 



7F 
3.' 
C8 

a 

IS 

00 

1E 
DO 
IB 
SD 

H 

EJ 

K 

04 

65 



JS 

«1 
BO 

17 
17 

SB 

sa 

CA 
CA 
40 
21 
IE 
09 

20 
20 



B7 
B7 

20 
S9 



28 
C3 
FS 
F6 



2S 
CA 



D9 
SS 



CO 
CD 



45 
10 

43 
C3 



44 



45 
CB 
4C 

es 



4C 
56 

M 
3A 



45 
E1 

40 



43 
C2 
26 



54 
FC 
4,1 
E6 



52 
K 
29 
FB 



49 
Q 
20 
2D 



43 
06 

31 
FS 



20 

39 
C3 



This modification will skip over 'LOWERCASE KIT INSTALLED;' 
question, automatically answering "Y" (or "N", for that matter): 

F036E6 from 6C CD CF 67 21 
10 EC 00 00 00 21 

E016F5 from 5A CD 79 «S E6 _^^^__ 
ro 5A )E 59* 00 ES 

*4E for "N" 



FOR UOHE ADVANCED ADVENTURERS: 



SCOTT ADAMS' ADVENTURE" 

Marooned at the edge of the Galaxy you come across the ruins ^ 
of ancient alien civilization, complete with fabulous treasures 
and alien technologies. Can you collect the treasures and 
escape or will you be forever marooned . . . Level II, 16K $14.95 

TheSoHwyare Exchange 

6 SouthStreet,Box68Millord,NH 03055 603-673-5144 






byte off all you can chew! 

SSEMBL 
LANGUAGE 

PROGRAMMING 
AIDS 

Z-80and 8080 Assembly 
Language Programming 

by Kathe Spracklen 

Finali/! A good tutorial book on assembly language programming 
by a master of the art! KatheSpracklan, co-author of Sargon, tells you 
how with simple straightforward instruction. $7.95+ si snipping 

Microsoft 
Editor/Assembler Plus 

Plus what? Well, you get the features of the T-Bug and the original 
editor/assembler plus macros and conditional assembly, plus extra 
commands like substitute, move, copy, and extend, plus Z-Bug, a 
powerful debugging monitor with 8 level breakpoint capability, A 
bargain at $29.95 

Super Simon 

8y George Blank 

Complete Z-80 Disassembler with abitityto generate symbol tables, 
dump in Hex. ASCII, or even decimal with poke addresses. Writes 
machine language tapes. Written in BASIC so it loads easy and is easy 
to modify. $9.95 

^g^ The SoUware Exchange 

MSJBEf 6 SgJthStrE^t.Box 68.Milford.NH 03055 603-673-5144 
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FOR TSE 



Order Form 



SOFTWARE 



Accts Rec II Disk 32K 6e.9S 

Adv PBIsFinOtsK 2*.95 

Adventure Sample = 5-95 

2 Adventures on Disk 24 95 
D LanflS Pirate 

D Mission & Voodoo 
D Count A Odyssey 
D Fun House A Pyramid 

3 Adventures Disk 39-9S 
D Land Pirate Mission 

O Count Voodoo Odyssey 
Adventures on tepe 1J.9S 

□ Count 

D Fun House 

OLand 

D Mission Impossible 

D Pirate's Cove 

n Pyreniia ot Doom 

Strange Odyssey 

D Voodoo 
Adventure IMicmsoIti 29.95 

Airmail Pilot 7,96 

Air Raid 9 95 

Alien invasion (sound) cess. 9,95 
Alien Invasion Isountl) Oisfc H.95 
Amateur Astronomy HandlJOOk 1<1.9S 
AmateLit Radio Disk 24.96 

Amafin' Mazes 7.95 

Android NIm Isoundl 14.95 

APL disk 34.96 

APL v(/book 49.95 <■ S3 

APL tape 14 96 

APL hook only 15.50 ■ $3 

Appointmenf Log 9.95 

Automated Disk Dirsctory 14.95 

Barricade 9 95 

Basic Handbook 14 95 ■ tl 

Basic Statistics 9.96 

Basic Styles Handbool^ 5.95 *■ 11 

Bee Wary (sound) 14.95 

Binders 4 95 ■ II 

Biortiythms 4.95 

Blsmari^k 4996 

Sridge Challenger 14 9S 

Cards ol Fortune 7 95 

Cassettes 

DC-IO 10 Ior6.50 + $t 

DC-;o 10 lor 7.50 ■ Jl 

Casino Aninology 7 95 

ChafJenge {sound) 9.95 

Chess Companion 7.95 

COMPROC Command Processor 

tai3e tor Hisk only IT9.95 

CriQbage 7.96 

Data Management System (CCA) 

74.95 H il 

Datestones of Ryn 

Tape 14.95 

Disk 19 95 

Diskettes 

BASF n 5 for 24.95 +$1 

a 10 for 39.96 +11 

DM tor 69.95 * ta 

D 100 lor 299.00 + J3 

DySSn bOK of 5 29.95 + Jl 

Dynamic Data Base 39.95 



Diskette Storage Sox 5.00 + SI 

Ooson 32K o( 48 tape 34.95 

DSM Son Ulitity lot disk 75.00 
Ediloi/ Assembler Plus IfiK tape E9,96 

Electric Pencil tape 100.00 

Electric Pencil disk 150.00 

Educator Assistant 9.95 

eO8O-Z80 Conversion 14.95 

Eiecttonics Asslstarft 9.95 

End Zone II 9.95 

Faatgammon 19.95 

File Manager 80 49.95 
Floppy Armour box o( 5 4.95 •■ tl 

Floppy Disk Diagnostic 24.95 

Fortcar/Assembler 150.(X1 + S5 
Fortran 80.00 * J2.50 
AssemQIer 80.00 + S2.S0 

Galactic Empire 14.95 

Galactic Empire/Trader disk 29.95 

Galactic Revolution 14.95 

Galactic Trader 14,96 

Galaciic Trilogy dis* 39.95 

GSr 16K,32K,48K £4.96 

Ham FtaOio 9.95 

HlstograplVScaltergram 995 
Home Financial Management 9.95 

I Ctling Leve^ II IfiK 7.96 

Infinite BASIC by Racel 4995 

Business add-on 29.96 

Intro TRS-80 Grapliics 7 95 * tl 
Invasion of Orion 

Tape 19.95 

Disk 24 95 

Inventory II 3 Disk 79.95 

Inventory S tape 24.95 
Inventory S disk w/invoicing 59.95 
w/o'invo Icing 39 95 

Investmeni Porltollo 49.95 
IRV 

Tape 24.95 

Disk 29.95 

Journey Center Earth 7.95 

Kamikaze 7 95 

Keytioard 9 95 

Krregspeil 7.95 

KVP 24 95 

KVP on Disk S9.95 

KVP 232 34 95 

Learning Level 11 15.95 + SI 

Level I in Level II 14.95 

Level III BASIC 49.95 

LileTvic (sound) 14.96 

Loan Amorlizalion 19 95 

Lost Dutchman's Gold 9.95 

Lower System 9 95 
Machine Lang. Mon. (RSV.2> 26 95 
Machine Lang Mon (HSV.2D) 29.95 

Magic Paper Calculator 14.95 

Malt List II Disk 99.95 
Mar lock's Tower 

Tape 14.95 

Disk 19.95 

Mastermind 7.95 

Mean Checkers Mflctiine tapeSi9.95 

Mean Checkers Machine disk 24,95 



III 


ONLY 


Microchees 1 .5 


19.95 


Mietoten Editor 


9.95 


Moving Signboard 


9,95 


Mu-Math 


74.95 ' S3 


NEWDOS 


49.95 


NEWDOS > 


99.95 


NEW(X>S80 


149.95 



9 Qsmes/Pieschool Child 9.95 

Numerology 32K disk 14 95 

On-Line Invoicing disk 39,95 

Pathways Ttirough the ROM 19.95 
Payroll Disk 32K 3995 

Pencil Pal 35O0 

Pentominoes fsound) 7.95 

Periodical Cross Referencetape 14,95 
Periodical Cross Heterencedisk 19.95 
Personal Finance 9S5 

Rigsfcin 985 

Pork Barrel 995 

PR Doglighl 7.95 

Pretlight 20.00 

Print Spooler aisfc 24.95 

Remodel a Proload 16K,32K,46K 
34.95 
Renumtier 7.95 

Renumx 24.95 

Rescue alRlgel 

Tape ,9.95 

Disk 24.95 

Roots a,sk 19,95 

RPN Calculator 9.9s 

RS'^-2 26 95 

BSM-2D 29 95 

RX (disk) 24,95 

Santa Paravia & Fuimaccio 7,95 

S argon Chess 1995 

Sargon II 39 95 

Sargon Handbook 15.95 -r S1 

Scripsit 

Tape/DiBk 96.00 + S2 

Secrets of the Tarot 9.95 

Small Business Booi-keeping 

tape 24,g5 
Small Business Soohteeping 

disk 29,95 
Small Business Bookkeeping 
Journal 7 00 
SnakeEggs (sound) 1fi.95 

Space Satlles tape 14,95 

Space Battles disk 1995 

STAG 24.96 

Star Fleet Orion 

Tape J 996 

Disk 2f 95 

Star Trek III. 4 14,96 

ST80 Smart Terminal 4995 

STOOD Smarter Disk 79 95 

STSOIII isooO 

STSOUC 24,95 

Super Simon $9,95 

System Copy 9.95 

T Short 9,95 

Taipan 9,95 

Tape Recorder AiignmenI Kit 9,96 
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Temple of Apsfiai 




TRS-8ti Opera Theatre Isouna) 9.95 


Tape 


S'.95 


With chaJleng? on disti 


19.95 


Disk 


29.95 


Tycoon 


7.95 


Tern 80 Disk 


69.95 


Typing Tutor 


19 95 


Time Senes Analysis 


1J.95 


Warfare 


7 95 


Time Treh 


1J.96 


Wordo 


1i95 


Ting Tong Level II 16K 


9.95 


X-Wing Fighter II 


9 95 


Tiny Comp 


tap« 19.95 


XREF 


19.95 


Tiny Comp 


disk 24 95 


V-Y Bar by Racel 


14 95 


Trolls Gold 


4.95 


Z-flO Chip Poster 


3 99 *tl 


TRS-SO Assy. Lan Pro. 


3.95 *$1 


Z-80 Gourmet Cookboolf 


14.95 ■ II 


TRS-SO Disk S, Other 


Mysteries 


Z-80 Handbook 


■i.95 *I1 




22.95* t1 


Z-80 and 8080 AssemDIy 


7.95 • t1 


TRS-eo Inter lacing 


8,95 • Jl 

SnMwa 


«0» Fwr^haaatm 
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G SOUTH STREET MILFORD, NH 0305S Order Number: 603-673-6144 

Level II soUware atfai^able on disk to^ a £5.00(perorderl medium charge. ThiseMialeeislor ariy numtei 
ol programs iiansleired lo disk from lape when you order. If Ihe order exceeds ire capaoiiy of a single 
dish, we absorb ihe exira nosl, 
Ptease soie level and iriemor^ size on order lorm. . . oiherwise, we auiomaucaily ship Level II tasseties. 

Be sure lo include Tiandling charge arid any addllional charges when hgunng youf loial AM ordeis 
shipped wiih 24 ■ 73 hours. Prices subiecl lo change wil*^oui noiicc. 

□ UPS □ 1st Class D Charge D COD 

Charge card account number 



Srgnalure 

Eipl.Oaie Inier.K 

Charge customers: please nil in account Inlormatlon alMJve and l)elow 



Name. 

Address.. 

City Stals Zip.... 

ALL SOFTWARE SOLD ON AN AS-IS BASIS WITHOUT WAfmANTY.TSE assumes no liability lor loss or 
damage caused or alleged lo be caused directly or indirectly by eoulpment or products sold or ex- 
charged by them or iheir distributors, including but not llrnited to any inlertuption in service, loss ot 
business or anticipatory profits or consequential damages resulime from use or operation ot such 
eguipment ot soltv^are. We are not responsible lor typographical errors anywhere in this publication 

DO NOT FORGET 
SHIPPING CHARGES 

Shipping Charge - Add $1 Disk Charge - Add S5 

All C.O.D. and overseas orders must add $5. 
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^^"^r^^T ™ PO Box 6« 

J^TT 3lnO Milford, NH 03055 

^^Vll^^lVl^na ''your BASIC ■oHwartnuonbw" 

Rush me the next 12 issues of SoftSide. 

DUSAbulk.SISlyr. D$32-2vrs- DCANADA/MEXICO$251 yr, 
auSA first class $25 1 yr. DOVERSEAS airmail $30 1 yr. 

a APO/OVERSEAS surface S25 lyr. Telsphom youi ch*io« cMd ontor! Caii 

^^^_ our SuMctlptJon ofllce Monday through 

Credit Card ■ ^^ Friday 9:30 to 5:30 (Eastern llrne) at 

I^^M l-aoo-ZSB-ITW {ki NH cal «T3-S1M) 



Exp. Date__ _lnterbank#{M/Conly). 

Signature — — — — — __ — — — _ 



Name. 



Address 



City State -Zip- 

Please remit in US funds ONLY 



Ready to get serious? SUBSCRIBE TO HUK/Sa the magazine 

dedicated to serious programmers. . beginners to professionals 



SUBSCniPTION RATES - 6 luuM pat rf 

USA '^"303 

BulkrraH-tlS.OO Mexico $21.00 

Firsi Class Wail - 121 .00 APOiFPO 

Overseas airmail - $27,00 Overseas surface mall 
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n ChwkfMonay Order •nclDied U Mwler Chars* O VISA 

SIGHATUBE 

ACCOUNT # 

EXP DATE . INTER. * 

NAUjIF ^ 



ADDRESS „ 



CI T Y _^____ STATE Zl P 



Telepfiorw orders atxepted lor Matter CtiarQe or VISA accounts. Call Monday through 
Friday, 9:30 to 5:30 EST at l-SDD^t-ITM (ki NH ceN «T3SiM) 

PO BOX 68, MILFORD, NH 03055 
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TT 



Ln 



=3 

=£3 



Aidd several megabytes 
and a few thousand I/O 
ports to yonr system! 

7=a 
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Would you like to send mail across the country overnight, write 
one letter and send it to a hundred people, read the news right off the 
wire service, progrann in COBOL, FORTRAN, or RPG 0, advertise 
on a nationwide electronic bulletin board, join a real time national 
computer club, leave messages when you are out of town, make 
travel arrangements through your computer, use a discount 
shopping service, reach a whole library of specialized information on 
business, real estate, science and engineering, and personal 
applications, use dozens of high powered applications programs? 
One time subscription fee 

(include* manuals) $100.00 
Connect time after 6 p.m. 

(per hour) $ 2.75 

call toll free (in nh cbii b73'G144) 
1.800.258-1790 
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